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ABSTRACT 


THE RM80 DUAL PORT LOGIC TEST PERFORMS A SERIES OF 
TESTS WHICH VERIFY THAT THE RM80 DUAL PORT LOGIC 
IS FUNCTIONING PROPERLY. ONLY THE CONTROL LOGIC IS TESTED 
BY THIS PROGRAM; DATA HANDLING IN THE DUAL PORT MODE 
IS NOT TESTED BY THIS PROGRAM. 

BOTH PORTS OF THE DRIVE ARE CABLED TO THE SAME MASSBUS BY 
A SPECIAL ADAPTER CABLE. THIS ARRANGEMENT ALLOWS THE DUAL 
PORT LOGIC TO BE TESTED FROM ONE PDP-11 AND RH70. 

THIS PROGRAM IS THE FIRST PART OF THE DUAL PORT OPTION 
LOGIC TEST. THE SECOND PART OF THE TEST PERFORMS 
MANUAL INTERVENTION TESTS. 


REQUIREMENTS 


EQUIPMENT 

PDP-11/70 PROCESSOR 
20K MEMORY 

KW11-L OR KW11-P CLOCK 

TERMINAL 

RH70 CONTROLLER 

1 - RM80 DISK DRIVE _ 

RM DUAL PORT TEST CABLE (P/N: 7010507-02) 

PREREQUISITE PROGRAMS 

RM80 DISKLESS TEST, PART 1 t 2 

RM80 FUNCTIONAL TEST, PART 1,283 

THE PRELIMINARY PROGRAMS MUST BE RUN TWICE: ONCE FROM 
EACH PORT (A 8 8). 

OTHER PROGRAMS 

A. THE OPERATION OF THE *1>0RT SELECT" SWITCH IS TESTED 
BY THE SECOND PART OF THE DUAL PORT LOGIC TEST. 

B. DYNAMIC OPERATION OF THE DUAL PORT OPTION IS 
TESTED BY THE RM80 PERFORMANCE EXERCISER PROGRAM. 


LOADING PROCEDURES 

THE PROGRAM MAY BE LOADED BY THE ABSOLUTE PAPER 1APE 
LOADER ORIT MAY BE LOADED FROM THE APPROPIATE MEDIA 
USING THE ASSOCIATED 'XXDP* LOADER. THE PROGRAM MAY NOT 
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SEO 000 * 


BE INCLUDED IN AN 'XXDP' CHAIN. 


STARTING PROCEDURES 


STARTING ADDRESSES 

A. THE NORMAL STARTING ADDRESS OF THE PROGRAM IS LOCATION 
200 (8). STARTING AT THIS ADDRESS ALLOWS THE OPERATOR 
TO SELECT (OR RESELECT) THE ADDRESS OF THE DRIVE TO BE 
TESTED. 

B. THE RESTART ADDRESS IS LOCATION 204 (8). THE PROGRAM WILL 
USE THE CURRENT DRIVE ADDRESS, 

C. THE PROGRAM CAN BE STARTED AT LOCATION 210 (8) TO ALLOW THE 
ADDRESS OF THE RH70 TO BE CHANGED. 

UNI8US t VECTOR ADDRESSES 

THE PROGRAM ASSUMES THE FOLLOWING UNIBUS AND VECTOR ADDRESSES. 
THESE ADDRESSES NAY BE CHANGED PRIOR TO STARTING THE PROGRAM 
FROM ANY OF THE STARTING ADDRESSES. 


MEMORY 

LOCATION 


CONTENTS 


FUNCTION 


177560 

177562 

177564 

177566 

172540 

172542 

104 

177546 

100 


TTY KEYBOARD STATUS REG 
TTY KEYBOARD BUFFER REG 
TTY PRINTER STATUS REG 
TTY PRINTER BUFFER REG 
KW11-P STATUS REG 
KW11-P COUNTER BUFFER 
KWl 1 -P VECTOR ADDRESS 
KW11-L STATUS REGISTER 
KWl 1 -L VECTOR ADDRESS 


OPERATOR ACTION 


CONNECT THE DUAL PORT TEST CABLE BETWEEN BUS A 
6 BUS B ON THE DRIVE BEING TESTED. (SEE SECTION 5.4) 

LOAD THE PROGRAM INTO MEMORY IN THE PROCESSOR CONTROLLING 
THE NASS8US USED FOR TESTING. 

SWITCH THE ’PORT SELECT' SWITCH ON THE DRIVE TO BE 
TESTED TO THE ’A/B' POSITION. CYCLE THE DRIVE UP. 

LOAD THE APPROPIATE STARTING ADDRESS (200(8) OR 210(8)) 

INTO THE SWITCH REGISTER (OR THE 'SOFTWARE' SWITCH REGISTER. 
REFER TO SECTION 5.2). 

PRESS START. 

ENTER THE DRIVE NUMBER. 

ENTER THE NUMBER OF THE TEST TO BE RUN. ('CARRIAGE RETURN' 
OR '0* WILL RUN ALL TESTS.) 

THE PROGRAM MAY BE STOPPED AT ANY TIME AND RESTARTED 
FROM LOCATION 204. 
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OPERATING PROCEDURES 


'SOFTWARE* SWITCH REGISTER 

IF THE PROGRAM IS BEING RUN ON A SWITCHLESS PROCESSOR 
THE PROGRAM WILL DETERMINE THAT THE HARDWARE SWITCH REGISTER IS 
NOT PRESENT AND WILL USE A 'SOFTWARE' SWITCH REGISTER. THE 
•SOFTWARE* SWITCH REGISTER IS LOCATED AT LOCATION 176 (8). THE 
SETTINGS OF THE 'SOFTWARE' SWITCHES ARE CONTROLLED THROUGH A KEYBOARD 
ROUTINE WHICH IS CALLED BY TYPING A 'CONTROL G\ THE PROGRAM WILL 
RECOGNIZE THE 'CONTROL G' AT ANY TIME EXCEPT WHEN THE PROGRAM 
IS AT A HIGHER PRIORITY PROCESSING AN RM80 INTERRUPT. THE 
•SOFTWARE' SWITCH VALUES ARE ENTERED AS AN OCTAL NUMBER IN RESPONSE 
TO THE PROMPT FROM THE SWITCH ENTRY ROUTINE: 

'SWR = NNNNNN NEW =' 

EACH TIME SWITCH SETTING ARE ENTERED, THE ENTIRE SWITCH REGISTER 
IMAGE MUST 8E ENTERED. LEADING ZEROS ARE NOT REQUIRED., 'RUBOUT* AND 
•CONTROL U' FUNCTIONS MAY BE USED TO CORRECT TYPING ERRORS 
DURING SWITCH ENTRY. 

ON PROCESSORS WITH HARDWARE SWITCH REGISTERS, THE 'SOFTWARE' SWITCH 
REGISTER MAY BE USED, IF THE PROGRAM FINDS ALL 1'S IN THE SWITCHES. 
ALL SWITCH REGISTER REFERENCES WILL BE TO THE 'SOFTWARE' REGISTER 
AND THE PROCEDURES DESCRIBED ABOVE MUST BE FOLLOWED. 

OPERATIONAL SWITCH SETTINGS 

WITH ALL SWITCHES SET TO ZERO, THE PROGRAM WILL TYPE 
ALL ERRORS AND CONTINUE TESTING. 

THE SWITCH SETTINGS ARE: 


SW<15>=1 
SW<H>s1 
SW<13>*1 
swell >=1 
SW<10>=1 
SW<09>=1 

TEST SELECTION 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TVPEOUTS 
INHIBIT TEST ITERATIONS 
RING TTY BELL ON ERROR 
LOOP ON ERROR 


INDIVIDUAL TESTS ARE SELECTED IN RESPONSE TO THE 'ENTER 
TEST NUMBER:' MESSAGE. ANY VALID TEST NUMBER CAN BE 
ENTERED. EACH ENTRY MUST BE TERMINATED BY A CARRIAGE 
RETURN (CR). THE LOOP ON TEST SWITCH, SW<14>, MUST BE SET 
TO ALLOW CONTINUOUS EXECUTION OF THE SELECTED TEST. 

TO RUN ALL TESTS IN SEQUENCE, ENTER EITHER A 'O' FOLLOWED 
BY A CARRIAGE RETURN OR A CARRIAGE RETURN BY ITSELF. THE 
PROGRAM WILL THEN EXECUTE ALL TESTS IN SEQUENCE. 


/!RNHAC RM80 OUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 3-3 


>t . 0006 


172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 

225 

226 

227 

228 


5.4 


THE ’RUBOUT KEY* (R0> CAN BE USED TO DELETE THE LAST 
CHARACTER ENTERED. SUCCESSIVELY STRIKING THE RO KEY 
HILL DELETE CHARACTERS UNTIL THE PREVIOUS CHARACTERS HAVE 
BEEN DELETED. CHARACTERS DELETED BY THE RO KEY WILL BE 
TYPED AND WILL BE SEPARATED BY ’V FROM THE CHARACTERS 
ENTERED BY THE OPERATOR. 

THE OPERATOR CAN DELETE AN ENTIRE ENTRY BY TYPING A 
•CONTROL U* . 

TEST CABLE CONNECTION 

TO TEST THE RN80 DUAL PORT OPTION WITH THIS PROGRAM, 

A SPECIAL TEST CABLE MUST BE USED. (THE TEST CABLE IS 
P/N: 7010507-02). THE TEST CABLE CONNECTS MASSBUS A & HASSBUS 
B TOGETHER AT THE DRIVE BEING TESTED AND IS CONSTRUCTED SO 
THAT BIT 0 OF THE MASSBUS UNIT SELECT LINES IS COMPLEMENTED. 

WITH THE DRIVE CABLE CONNECTED TO THE RM80 UNDER TEST, 

THE DRIVE APPEARS AS TWO UNITS ON THE MASSBUS: EACH PORT 
OF THE DRIVE WILL RESPOND TO A DIFFERENT MASSBUS ADDRESS. 

THE ADDRESS OF EACH PORT WILL DEPEND UPON THE DRIVE'S 
ADDRESS PLUG. 

THE PROGRAM WILL TYPEOUT THE APPARENT ADDRESSES OF BOTH 
PORTS. (ONE PORT WILL HAVE THE ADDRESS OF THE DRIVE; THE 
OTHER PORT WILL HAVE THE ADDRESS DEVELOPED BY THE CABLE). 

*********************************************************** 

* ANY OTHER DRIVE ON THE MASSBUS WHICH HAS AN ADDRESS * 

* IN CONFLICT WITH EITHER OF THE TEST ADDRESSES MUST BE * 

* POWERED DOWN. * 

*********************************************************** 


THE TEST CABLE CONNECTION TO THE DRIVE UNDER TEST WILL 
DEPEND ON WHICH PROCESSOR, RH CONTROLLER IS TO TEST THE DRIVE. 

IF THE DRIVE IS TO BE TESTED BY THE PROCESSOR ON PORT A, 

CONNECT THE MASSBUS CABLE FROM THE RH CONTROLLER TO J3 OF THE _ 
RM ADPTER BACK PANEL. THEN CONNECT THE TEST CABLE (P/N: 7010507-02) 
FROM J2 TO J7 OF THE BACK PANEL AND TERMINATE THE PORT *B , ‘ AT J6. 

WHEN THE DUAL PORT TEST CABLE IS CONNECTED, THE ATTENTION 
BITS FOR PORTS A t B ARE ASSERTED IN THE SAME BIT POSITION 
WHEN 'RMAS* (ATTENTION SUMMARY REGISTER) IS READ. THE ATTENTION 
BIT POSITION IS DETERMINED BY THE ADDRESS OF THE DRIVE 
THE ATTENTION BIT THAT APPEARS FOR THE DRIVE IS THE 
INCLUSIVE 'OR' OF THE PORT A f PORT B ATTENTION BITS. BECAUSE 
OF THIS, THE PROGRAM LOOKS AT ONLY THE ATTENTION BIT IN 
•RMDS' (DRIVE STATUS REGISTER) TO DETERMINE THE STATE 
OF THE SELECTED PORTS'S ATTENTION BIT. 


6. ERRORS 

WHEN THE PROGRAM ENCOUNTERS AN ERROR, THE ERROR ROUTINE IS 


J 
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CALLED AMD IF SW<13> IS NOT SET, THE ERROR MESSAGE PERTAINING 
TO THE ERROR HILL BE TYPED. EACH ERROR TYPEOUT WILL CONTAIN 
THE FOLLOWING: 

A. AN ERROR MESSAGE 

B. A DATA HEADER LINE 

C. A DATA LINE CONTAINING: 

1. THE TEST NUMBER 

2. THE PC (PROGRAM COUNTER VALUE) WHERE THE ERROR 
CALL WAS MADE 

3. CONTENTS OF THE APPROPIATE REGISTERS 


7. MISCELLANEOUS 


7.1 RESTRICTIONS 

TO RUN THIS PROGRAM, THE SYSTEM MUST HAVE EITHER A KW11-P 
OR A KW11-L CLOCK. ADDITIONALLY, THE DRIVE UNDER TEST 
MUST HAVE THE DUAL PORT TEST CABLE CONNECTED. 

7.2 LIMITATIONS 

THIS PROGRAM DOES NOT TEST DATA TRANSFERS THROUGH EITHER 
PORT, DOES NOT TEST THE DYNAMIC OPERATION OF THE DUAL 
PORT OPTION. AND DOES NOT TEST THE UNLOAD COMMAND 
OR THE OPERATION OF THE PORT SELECT SWITCH ON THE DRIVE. 
(REFER TO PARAGRAPH 2.2 t 2.3) 

7.3 EXECUTION TIME 

PASS 1 OF THE PROGRAM TAKES ABOUT 25 SECONDS. PASS 2 AND 
SUBSEQUENT PASSES TAKE 2.3 MINUTES. 

7.4 REQUIRED TESTS 

IF THE PROGRAM IS BEING EXECUTED IN SINGLE TEST MODE. THE 
OPERATOR MUST CALL AND RUN THE FOLLOWING TESTS BEFORE OTHER 
TESTS ARE RUN: 

A. TEST 2 AND TEST 3. THESE TESTS DETERMINE AND STORE FOR 
LATER USE THE TIMEOUT NON-SHOT VALUE MEASURED THROUGH 
EACH PORT. 

7.5 DISK SURFACE USAGE 

THIS DIAGNOSTIC DOES NOT USE THE DISK SURFACE. HOWEVER, THE 
DRIVE MUST BE CYCLED UP AND ON-LINE FOR THE DIAGNOSTIC TO BE 
RUN. 

7.6 LOOP ON ERROR OPTION 

IF SW<09> IS SET, THE PROGRAM WILL LOOP ON A FAILING TEST 
UNTIL EITHER THE SWITCH IS RESET OR THE ERROR STOPS OCCURING. 
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8E CAUSE THE PROGRAM MUST RESET THE RM80 TO A KNOWN STATE 
BEFORE LOOPING ON THE ERROR, THE TEST FOR SU<09> IS PERFORMED 
AT THE END OF THE TEST - NOT AT THE POINT WHERE THE ERROR 
WAS DETECTED. 


8. TEST DESCRIPTIONS 


8.1 METHOD USED TO VERIFY THAT THE DRIVE IS IN NEUTRAL 

THE PROGRAM DETERMINES THAT THE DRIVE IS IN NEUTRAL BY CHECKING 
THE CONTENTS OF THE DRIVE STATUS REGISTER (RMDS) THROUGH 
BOTH PORTS. THE PROGRAM MASKS OUT THE PORT DEPENDENT BITS 
CATA’ ( 'VV') AND VERIFIES THAT CORRECT STATUS IS READ 
THROUGH BOTH PORTS. (THE CORRECT STATUS IS 'MOL', 'PGM', 

'DPR', t 'DRY'.) IF NEITHER PORT SEES ALL ZEROS FROM 
RMDS, THE PROGRAM CONCLUDES THAT THE DRIVE IS IN NEUTRAL 
AND THAT ANY BIT DESCREPANCY BETWEEN PORTS INDICATES A 
FAILURE IN THE PATH FOR THAT BIT. 

ADDITIONALLY, THE PORT REQUEST FLOPS (RQA, ROB) OF THE 
MAINTENANCE REGISTER ARE TESTED, AND SHOULD BE ZERO IF 
THE DRIVE IS IN NEUTRAL. 

8.2 METHOD USED TO VERIFY THAT THE DRIVE HAS BEEN SEIZED 

THE PROGRAM VERIFIES THAT THE DRIVE HAS BEEN SEIZED BY 
CHECKING THE DRIVE STATUS REGISTER (RMDS) THROUGH 
THE SEIZING PORT AND VERIFING THAT CORRECT STATUS IS 
SEEN. WHEN RMDS IS READ THROUGH THE OPPOSITE PORT, 

ZEROS SHOULD BE SEEN. IF BOTH CONDITIONS EXIST, (I.E., 

CORRECT STATUS THROUGH THE SEIZING PORT AND ZEROS THROUGH 
THE OPPOSITE PORT), THE PROGRAM CONCLUDES THAT THE DRIVE 
HAS BEEN SEIZED BY THE SPECIFIED PORT. 

8.3 METHOD USED TO VERIFY PORT REQUESTS 

THE PORT REQUEST FLOPS IN THE MAINTENANCE REGISTER ARE 
TESTED TO DETERMINE IF : 

. A DRIVE IS IN NEUTRAL, I. E., RQA AND ROB ARE ZERO; 

. A DRIVE IS SEIZED, I.E., RQA OR ROB IS ONE; 

. A PORT REQUEST IS SET WHILE THE DRIVE IS SEIZED TO THE 
ALTERNATE PORT, I.E., RQA AND ROB ARE ONE. 


TEST 1 NEUTRAL ACCESS TEST 

VERIFY THAT THE DRIVE IS ACCESSIBLE TO BOTH PORTS 

A. SELECT DRIVE, VERIFY THAT THE DRIVE IS PRESENT, THAT THE 

DRIVE IS A DUAL PORT RM80, THAT THE DRIVE IS ONLINE (RMDS HAS 
•MOL’, 'PGM', 'DPR*, 8 ’DRY’ BITS SET), AND THE THE DRIVE SERIAL 
NUMBER READ THROUGH BOTH PORTS IS THE SANE. 
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B. THE TEST IS REPEATED THR0U6H BOTH PORTS. 


TEST 2 PORT 'A' SEIZE/TIMEOUT TEST 

VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 

A. WRITE O'S INTO RMDA THROUGH PORT 'A'; VERIFY THAT THE DRIVE 

HAS BEEN SEIZED. 

B. READ EACH DRIVE REGISTER, EXCEPT RMCS1. THROUGH PORT 'B'; 

VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 


TEST 3 PORT 'B' SEIZE/TIMEOUT TEST 

VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 

A. WRITE O'S INTO RMDA THROUGH PORT '8'; VERIFY THAT THE DRIVE 

HAS BEEN SEIZED. 

B. READ EACH DRIVE REGISTER. EXCEPT RMCS1. THROUGH PORT 'A'; 

VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVF. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 


TEST 4 PORT 'A* SEIZE/RELEASE TEST 

TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 

A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

B. SET VOLUME VALID AND CLEAR ANY ERROR 

C. ISSUE A RELEASE COMMAND THROUGH PORT'A'. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
DRIVE. 


TEST 5 PORT '0' SEIZE/RELEASE TEST 

TEST THE OPERATION OF THE RELEASE COMMAND. DRIVE SEIZED 

A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

B. SET VOLUME VALID AND CLEAR ANY ERROR 
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C. ISSUE A RELEASE COMMAND THROUGH PORT ’8’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
DRIVE. 

TEST 6 PORT 'A' NEUTRAL/RELEASE TEST 

TEST OPERATION OF RELEASE COMMAND. DRIVE IN NEUTRAL 

A. ISSUE A RELEASE COWHAND THROUGH PORT 'A' WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 

TEST 7 PORT 'S’ NEUTRAL/RELEASE TEST 

TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 

A. ISSUE A RELEASE COMMAND THROUGH PORT 'B' WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 

TEST 10 PORT 'A' RELEASE INTERFERENCE TEST 

VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

B. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. 

C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'B*. 

D. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE SWITCHED 

TO PORT 'A*. 

E. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE RETURNED 

TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TEST 11 PORT 'B' RELEASE INTERFERENCE TEST 

VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

B. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. 

C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'A'. 

D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE SWITCHED 

TO PORT 'B*. 

E. RELEASE THE DRIVE THROUGH PORT 'B'. VERIFY THAT THE DRIVE RETURNED 

TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


SEO 0011 
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TEST 12 PORT 'A* RELEASE W/ERRORS TEST 


VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O'S INTO RMDS. 

B. WRITE I'S INTO RMER1 THROUGH PORT ’A’. 

C. ISSUE A RELEASE COMMAND THROUGH PORT 'A*. VERIFY THAT THE ‘GO* 

BIT HAS RESET. THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. AND 
THAT RMER1 HAS NOT BEEN CLEARED. 

D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT 'A'. 

E. ISSUE A RELEASE COMMAND THROUGH PORT 'A*. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 13 PORT 'B' RELEASE W/ERRORS TEST 

VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
BITS ARE SET IN THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT ’B' BY WRITING O'S INTO RMDS. 

B. WRITE I'S INTO RMER1 THROUGH PORT 'B'. 

C. ISSUE A RELEASE COMMAND THROUGH PORT 'B'. VERIFY THAT THE 'GO' 

BIT HAS RESET. THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. AND 
THAT RMER1 HAS NOT BEEN CLEARED. 

D. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT *B'. 

E. ISSUE A RELEASE COMMAND THROUGH PORT 'B*. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

TEST 14 PORT 'A* SEIZE AND CLEAR TEST 

VERIFY THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 

A. SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT 'A*. 

VERIFY THAT THE DRIVE HAS BEEN SEIZED. 

B. ISSUE A DRIVE CLEAR THROUGH PORT 'A' AND VERIFY THAT THE DRIVE 

DOES NOT RETURN TO NEUTRAL. 

C. ISSUE A HASS8US CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 

THE DRIVE DOES NOT RETURN TO NEUTRAL. 

D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


M 1 
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TEST 15 PORT ’B* SEIZE AMD CLEAR TEST 

VERIFY THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 
PORT TO RELEASE THE DRIVE. 

A. SEIZE THE DRIVE BY WRITING O'S INTO RMDS THROUGH PORT 'B'. 

VERIFY THAT THE DRIVE HAS BEEN SEIZED. 

B. ISSUE A DRIVE CLEAR THROUGH PORT 'B' AND VERIFY THAT THE DRIVE 

DOES NOT RETURN TO NEUTRAL. 

C. ISSUE A MASS8US CLEAR THROUGH THE RH CONTROLLER AND VERIFY THAT 

THE DRIVE DOES NOT RETURN TO NEUTRAL. 

D. RELEASE THE DRIVE THROUGH PORT 'B*. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 16 SEIZE ’A' BY RHCS1 TEST 

VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRAL. 

A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT 'A'; VERIFY THAT 

THE DRIVE IS SEIZED. 

B. ISSUE A RELEASE COMMAND THROUGH PORT 'A'; VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 17 SEIZE 'B' BY RMCS1 TEST 

VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
IF THE DRIVE IS IN NEUTRAL. 

A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT 'B'; VERIFY THAT 

THE DRIVE IS SEIZED. 

B. ISSUE A RELEASE COMMAND THROUGH PORT ’B’; VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 20 PORT 'A* INHIBIT SEIZE BY RMCS1 TEST 

VERIFY THAT READING THE CONTROL REGISTER (RMCS1) DOES NOT SET ‘PORT 
REQUEST 1 IF THE DRIVE IS SEIZED. 

A. SEIZE THE DRIVE THROUGH PORT 'S' BY READING RMCS1. VERIFY THAT 

THE DRIVE HAS BEEN SEIZED. 

B. READ THE CONTROL REGISTER FROM PORT 'A'. VERIFY THAT 'DVA* IS NOT 

SET. 

C. ISSUE A RELEASE COMMAND THROUGH PORT ’S'. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


seo o: < 
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TEST 21 PORT *8' INHIBIT SEIZE BY RMCS1 TEST 

VERIFY THAT READING THE CONTROL RE6ISTER (RMCS1) DOES NOT SET 'PORT 
REGUEST ’ IF THE DRIVE IS SEIZED. 

A. SEIZE THE DRIVE THROUGH PORT 'A' BY READING RMCS1. VERIFY THAT 

THE DRIVE HAS BEEN SEIZED. 

B. READ THE CONTROL REGISTER FROM PORT 'B*. VERIFY THAT ’DVA' IS NOT 

SET. 

C. ISSUE A RELEASE COMMAND THR0U6H PORT 'A'. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 22 SEIZE BY RMAS TEST 

TtIT THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 

(RMAS) SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 
PORT. 

A. WRITE THE APPROPRIATE DRIVE BIT INTO RMAS; VERIFY THAT THE DRIVE 

IS SEIZED. 

B. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 

DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 


TEST 23 INHIBIT SEIZE BY RMAS TEST 

VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A 'ZERO' IS WRITTEN INTO 
THE DRIVE'S ATTENTION BIT. 

A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS. EXCEPT THE 

BIT OF THE DRIVE BEING TESTED. INTO THE ATTENTION REGISTER. 

B. VERIFY THAT THE DRIVE IS STILL IN NEUTRAL. 


TEST 24 SET PORT 'A' REQUEST TEST 

VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 

8. WRITE O'S INTO RMDS FROM PORT 'A'; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT 'B\ 

C. ISSUE A RELEASE COMMAND FROM PORT 'B' AND VERIFY THAT THE DRIVE 

SWITCHED TO PORT 'A'. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT ’A’ AND IS NOT SET FOR PORT 'B'. 

D. ISSUE A RELEASE COMMAND THROUGH PORT 'A' AND VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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SEQ 0014 


TEST 25 SET PORT *B' REQUEST TEST 

VERIFY THAT WRITING A DRIVE REGISTER SETS ’PORT REQUEST' WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RHDS. 

B. WRITE O'S INTO RHDS FROH PORT 'B'; VERIFY THAT THE DRIVE IS STILL 

SEIZED BY PORT 'A'. 

C. ISSUE A RELEASE COHHAND FROH PORT 'A' AND VERIFY THAT THE DRIVE 

SWITCHED TO PORT '8'. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT 'B' AND IS NOT SET FOR PORT 'A'. 

D. ISSUE A RELEASE COHHAND THROUGH PORT 'B* AND VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 26 TEST RESET ATTENTION 'A* BY DRIVE CLEAR 

VERIFY THAT A DRIVE CLEAR COHHAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 

A. SET EACH PORT 'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 

SET. 

B. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RHDS. 

C. ISSUE A DRIVE CLEAR COHHAND. 

D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE ATTENTION 

BIT FOR PORT 'A' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
•B* IS STILL SET. 

TEST 27 TEST RESET ATTENTION 'B* BY DRIVE CLEAR 

VERIFY THAT A DRIVE CLEAR COHHAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZINS PORT. 

A. SET EACH PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 

SET. 

B. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RHDS. 

C. ISSUE A DRIVE CLEAR COHHAND. 

D. RELEASE THE DRIVE THROUGH PORT 'B\ VERIFY THAT THE ATTENTION 

BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
•A' IS STILL SET. 


TEST 30 RESET ATTENTION 'A' BY GO TEST 

VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
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SEIZING PORT. 

A. SET EACH PORT’S ATTENTION BIT, AND VERIFY THAT BOTH 

ATTENTION BITS ARE SET. 

B. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S 

INTO RMDS. 

C. ISSUE A NOP COMMAND. 

D. R 'LEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE 

ATTENTION BIT FOR PORT 'A* IS RESET, AND THE 
ATTENTION BIT FOR PORT ’B’ IS STILL SET. 


TEST 31 RESET ATTENTION ’B' BY GO TEST 

VERIFY THAT THE ’GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 

A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 

ATTENTION BITS ARE SET. 

B. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING O'S 

INTO RMDS. 

C. ISSUE A NOP COMMAND. 

D. RELEASE THE DRIVE THROUGH PORT ’B’. VERIFY THAT THE 

ATTENTION BIT FOR PORT *B' IS RESET. AND THE 
ATTENTION BIT FOR PORT 'A* IS STIL SET. 


TEST 32 TEST RESET ATTENTION ’A’ 8 'B' BY MASSBUS INIT 

VERIFY THAT MASSBUS CLEAR RESETS BOTH PORT'S ATTENTION BITS WHEN THE 
DRIVE IS IN NEUTRAL. 

A. SET THE ATTENTION BITS FOR BOTH PORTS. 

B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 

C. ISSUE A MASSBUS INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 

RESET. 


TEST 33 RESET ATTENTION 'A' ft 'B* BY RMAS 

VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 
APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 

A. SET THE ATTENTION BITS FOR BOTH PORTS. 

B. VERIFY THE DRIVE IS IN NEUTRAL. 

C. WRITE THE DRIVE’S ATTENTION BIT IN RMAS. VERIFY 

THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS. 
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SEQ 0016 
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TEST 34 PORT 'A* ALTERNATE ATTENTION PATH TEST 

VERIFY THAT THE ALTERNATE ATTEN1I0N REGISTER READ PATH IS OPERATIONAL. 

A. SET THE ATTENTION BI T FOR PORT 'A'. 

B. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 

C. READ THE ATTENTION REGISTER 8 VERIFY THAT THE ATTENTION BIT 

FOR THE DRIVE IS SET. 


TEST 35 PORT *B' ALTERNATE ATTENTION PATH TEST 

VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 

A. SET THE ATTENTION BIT FOR PORT 'B'. 

B. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING O'S INTO RMDS. 

C. READ THE ATTENTION REGISTER 8 VERIFY THAT THE ATTENTION BIT 

FOR THE DRIVE IS SET. 


TEST 36 SET ATTENTION 'A' BY COMMMAND TEST 

TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 

A. ISSUE A OFFSET COMMAND THROUGH PORT 'A'. 

B. WAIT FOR THE OFFSET COMMAND TO COMPLETE ('DRY' TO BECOME 

•1'). VERIFY THAT THE ATTENTION BIT FOR PORT 'A' IS SET AND 
THAT THE ATTENTION BIT FOR PORT 'B* IS NOT SET. 

C. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE RETURNED 

TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 37 SET ATTENTION 'B* BY COMMMAND TEST 

TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 

A. ISSUE A RECALIBRATE COMMAND THROUGH PORT 'B'. 


B. 


WAIT FOR THE RECALIBRATE COMMAND TO COMPLETE ('DRY' TO BECOME 
•1'). VERIFY THAT THE ATTENTION BIT FOR PORT 'B' IS SET AND 
THAT THE ATTENTION BIT FOR PORT 'A' IS NOT SET. 


C. 


RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 40 PORT 'A' SET VOLUME VALID TEST 
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VERIFY THAT VOU*E VALID CAN BE SET FOR THE PORT UNDER TEST. 

VERIFY THAT A CHANGE IN ’MUR", IN RMMR1, SETS THE ATTENTION 
FOR PORT'A* . 

A. WITH PORT 'A' SELECTED, RESET AND SET 'MUR" IN RMMR1 . 

USING DIAGNOSTIC NODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT ‘VOLUME VALID" IS RESET AND 
ATTENTION IS SET. 

B. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 

COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 

VERIFY THAT ATTENTION IS RESET AND THAT VOLUME VALID 
IS SET. 

C. RELEASE THE DRIVE FROM PORT ’A' AND SELECT THE DRIVE FOR 

PORT *B'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 

D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 

PORT ’B* THEN RELEASE PORT ’8'. 

TEST 41 PORT ’S’ SET VOLUME VALID TEST 

VERIFY THAT VOLUME VALID CAN BE SET FOR THE PORT UNDER TEST. 

VERIFY THAT A CHANGE IN ‘MUR", IN RMMR1 , SETS THE ATTENTION 
FOR PORT’S*. 

A. WITH PORT *8’ SELECTED. RESET AND SET *MUR" IN RMMR1 , 

USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 
IS SEIZED AND THAT ‘VOLUME VALID" IS RESET AND 
ATTENTION IS SET. 

B. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 

COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 

VERIFY THAT ATTENTION IS RESET AND THAT VOLUME VALID 
IS SET. 

C. RELEASE THE DRIVE FROM PORT '8' AND SELECT THE DRIVE FOR 

PORT 'A'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 

D. ISSUE A DRIVE 'LEAR AND A READ IN PRESET COMMAND TO 

PORT 'A' THEN RELEASE PORT ’A*. 


TEST 42 TEST PORT ’A’ TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RMDS. 

B. WRITE 1’S INTO RMER1 THROUGH PORT ’A’ TO FORCE AN ATTENTION. 
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C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNE 0 
NEUTRAL; THAT ATTENTION IS SET FOR PORT 'A' AND NOT SET FOR 
PORT 'S'; AND THAT 80TH PORTS SEE 1’S IN THE ERROR REGISTER. 

TEST 43 TEST PORT *8* TIMEOUT DOES NOT RESET DRIVE 
VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT ’8* BY WRITING O'S INTO RMDS. 

8. WRITE 1*S INTO RMER1 THROUGH PORT '8*. 

C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 
NEUTRAL; THAT ATTENTION IS SET FOR PORT ’8' AND IS NOT SET FOR 
PORT 'A'; AND THAT BOTH PORTS SEE I'S IN THE ERROR REGISTER. 


TEST 44 PORT 'A' RETRIGGER BY DEMAND TEST 

VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 

A. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING O'S INTO RMDS. 

B. WAIT 500 MS AND READ RMDS THROUGH PO 

C. VERIFY THAT THE TIMEOUT OCCURS WITHIN ♦ OR - 25% OF THE SPECIFIED 

TIME. (THE MEASUREMENT IS MADE FROM STEP 'B'.> 

D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

BIT IS SET. 


TEST 45 PORT 'S’ RETRIGGER BY DEMAND TEST 

VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASSBUS DEMAND. 

A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

B. WAIT 5C0 MS AND WRITE O'B INTO RMDS THROUGH PORT 'A'. 

C. VERIFY THAT THE TIMEOUT OCCURS WITHIN ♦OR - 25% OF THE SPECIFIED 

TIME. (THE MEASUREMENT IS MADE FROM STEP 'B'.> 

D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

BIT IS SET. 


TEST 46 PORT 'A* TIMEOUT/RELEASE TEST 

VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 

SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 


A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS, 

B. SET PORT REQUEST BY WRITING O'S INTO RMDS FROM PORT 'A'. 
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C. ISSUE A RELEASE COMMAND FROM PORT 'B\ VERIFY THAT THE DRIVE 

HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA' BIT DID NOT 
SET FOR PORT 'B*. REGISTERS WILL NOT BE CHECKED THROUGH PORT 'A'. 

D. WAIT THE TIMEOUT INTERVAL ♦ 25X. VERIFY THAT THE DRIVE HAS 

BEEN RELEASED. 

E. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 47 PORT '8' TIMEOUT/RELEASE TEST 

VERIFY THAT THE TIMEOUT ONE-SHCT IS TRIGGERED WHEN THE DRIVE 

SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 

A. SEIZE THE DRIVF THROUGH PORT 'A* BY WRITING O'S INTO RMDS. 

B. SET PORT REQUEST BY WRITING O'S INTO RMDS FROM PORT 'B*. 

C. ISSUE A RELEASE COMMAND FROM PORT 'A'. VERIFY THAT THE DRIVE 

HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA' BIT DID NOT 
SET FOR PORT 'A'. REGISTERS WILL NOT BE CHECKED THROUGH PORT 'B'. 

D. WAIT THE TIMEOUT INTERVAL * 25X. VERIFY THAT THE DRIVE HAS 

BEEN RELEASED. 


TEST 50 PORT *A' SEIZE ACCESS TEST 

VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

B. WRITE VS INTO RMER1, RMER2 THROUGH PORT 'A'. 

C. READ RMER1, RMER2 THROUGH PORT 'B\ VERIFY THAT PORT 

'B' SEES O'S FROM EACH OF THESE REGISTERS. 

D. CLEAR RMER1, RMER2 THROUGH PORT 'A'. 

E. WRITE 1’S INTO RMER1, RMER2 THROUGH PORT 'B'. VERIFY THAT 

PORT 'A' SEES O'S FROM EACH OF THESE REGISTERS. 

F. RELEASE THE DRIVE THROUGH PORT *A\ VERIFY THAT THE DRIVE HAS 

SWITCHED TO PORT 'B' AND THAT THE ATTENTION BIT FOR PORT *B' IS 
SET AND THE ATTENTION BIT FOR PORT 'A' IS NOT SET. 

G. ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TEST 51 PORT '8' SEIZE ACCESS TEST 

VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 
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B. WRITE 1'S INTO RNER1 , RMER2 THROUGH PORT '8'. 

C. READ RMER1 # RMER2 THROUGH PORT 'A 1 . VERIFY THAT PORT 

•A* SEES 0'S FROM EACH OF THESE REGISTERS. 

D. CLEAR RNER1 , RMER2 THROUGH PORT '8'. 

E. WRITE VS INTO RMER1 , RNER2 THROUGH PORT 'A* . VERIFY THAT 

PORT '8* SEES 0'S FROM EACH OF THESE REGISTERS. 

F. RELEASE THE DRIVE THROUGH PORT *8'. VERIFY THAT THE DRIVE HAS 

SWITCHED TO PORT ’A* AND THAT THE ATTENTION BIT FOR PORT ’A’ IS 
SET AND THE ATTENTION BIT FOR PORT '8* IS NOT SET. 

G. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 

RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 
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SEO 0021 


001100 

104000 

000004 


000011 

000012 

000015 

000200 

177776 

177776 

177774 

177772 

177570 

177570 



;*LAST REVISION 04-AUG-81 

.TITLE CZRNHAO RM80 DUAL PORT PT1 
; ‘COPYRIGHT (C) 1982 
; ‘DIGITAL EQUIPMENT CORPORATION 
; ‘COLORADO SPGS., CO. 80919 

•‘PROGRAM BY HIKE LEAVITT 

;*‘THIS PROGRAM HAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
; ‘PACKAGE <HAINDEC-11-DZQAC-C5), 18-MAR-81 

ISBTTL OPERATIONAL SWITCH SETTINGS 

;* SWITCH USE 


HALT ON ERROR 
LOOP ON TEST 
INHIBIT ERROR TYPEOUTS 
INHIBIT ITERATIONS 
BELL ON ERROR 
LOOP ON ERROR 


.SBTTL BASIC DEFINITIONS 

.•‘INITIAL ADDRESS OF THE STACK POINTER *“ 1100 “* 

STACK =1100 

ERROR = EMT .-.-BASIC DEFINITION OF ERROR CALL 

SCOPE = IOT ; .-BASIC DEFINITION OF SCOPE CALL 


; ‘MISCELLANEOUS DEFINITIONS 


HT 

LF 

CR 

CRLF 

PS 

PSW =PS 

STKLMT 

PIRQ 

DSWR 

DDISP 


11 

12 

15 

200 

177776 

177774 

177772 

177570 

177570 


CODE FOR HORIZONTAL TAB 

CODE FOR LINE FEED 

CODE FOR CARRIAGE RETURN 

CODE FOR CARRIAGE RETURN-LINE FEED 

PROCESSOR STATUS WORD 

STACK LIMIT REGISTER 
PROGRAM INTERRUPT REQUEST REGISTER 
HARDWARE SWITCH REGISTER 
HARDWARE DISPLAY REGISTER 


000000 

000040 


; ‘GENERAL PURPOSE REGISTER DEFINITIONS 
RO = XO ;; GENERAL REGISTER 

R1 = XI ; .-GENERAL REGISTER 

R2 = X2 ;; GENERAL REGISTER 

R3 = S3 ;; GENERAL REGISTER 

R4 = X4 ;; GENERAL REGISTER 

R5 = X5 ;; GENERAL REGISTER 

R6 = X6 ;. -GENERAL REGISTER 

R7 = 17 ;; GENERAL REGISTER 

SP = X6 ;; STACK POINTER 

PC = X7 ;; PROGRAM COUNTER 

.-‘PRIORITY LEVEL DEFINITIONS 

PRO = 0 ;; PRIORITY LEVEL 0 

PR1 = 40 ;; PRIORITY LEVEL 1 


SEQ 00 22 


IK'I'I 

ft 

• 2 

ii 


• 3 

ii 
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III 
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ft 

ui 
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!i 
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• j 
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7 
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ij 
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ft 

it 
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•J 
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• i 
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•> 
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•j 
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BASIC DEFINITIONS 

000100 PR2 = 100 ;; PRIORITY LEVEL 

000140 PR3 = 140 ; .-PRIORITY LEVEL 

000200 PR4 = 200 ; .-PRIORITY LEVEL 

000240 PR5 = 240 ; .-PRIORITY LEVEL 

000300 PR6 = 300 ; .-PRIORITY LEVEL 

000340 PR 7 = 340 ; PRIORITY LEVEL 

.-•“SWITCH REGISTER" SWITCH DEFINITIONS 
SW15 = 100000 
SW14 - 40000 

SW13 = 20000 

SW12 = 10000 

SW11 = 4000 

SW10 = 2000 

SW09 = 1000 

SW08 = 400 

SWO 7 = 200 

SW06 = 100 

SWOS = 40 

SW04 = 20 

SW03 = 10 

SWO 2 = 4 

SW01 = 2 

SWOO = 1 

SW9=SW09 
SW8-SW03 
SW7=SW07 
SW6=SW06 
SW5*SW05 
SW4=SW04 
SW3-SW03 
SW2=SW02 
SWl=SW01 

swo=swoo 

.-•DATA BIT DEFINITIONS (BITOO TO BIT15) 


&IT15 = 1 

BIT14 = < 

BIT13 = I 

BIT12 = 1 

BIT11 = i 

BIT10 = ; 

BIT09 = ' 

BIT08 = * 

BIT07 * ; 

BIT06 = ' 

BIT05 = - 

BIT04 = ; 

BIT03 = 

BIT02 = - 

BIT01 = i 

BITOO = 

BIT9=8IT09 
BIT8=B!T08 
8IT7=BIT07 
BIT6=BIT06 
BIT5=BIT05 


100000 

40000 

20000 
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BASIC DEFINITIONS 


SEQ 0023 


000020 

000010 

000004 

000002 

000001 



000010 

000020 

000040 

000100 

000200 

000400 

001000 



BIT4=8IT04 

BJT3=8IT03 

BIT2=8JT02 

BIT1=8IT01 

BIT0=81T00 

.•♦BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC = 4 ; ; TIME OUT AND OTHER ERRORS 

RESVEC = 10 ;; RESERVED AND ILLEGAL INSTRUCTIONS 

TBITVEC = 14 ;;"T" BIT 

TRTVEC = 14 ;; TRACE TRAP 

BPTVEC = 14 ; .-BREAKPOINT TRAP (BPT) 

IOTVEC * 20 ;; INPUT/OUTPUT TRAP (IOT) ♦♦SCOPE** 

PURVEC = 24 ;; POWER FAIL 

EMTVEC = 30 ;; EMULATOR TRAP (EMT) **ERROR** 

TRAPVEC = 34 ;;"TRAP" TRAP 

TKVEC = 60 ; ; TTY KEYBOARD VECTOR 

TPVEC = 64 ; ; TTV PRINTER VECTOR 

PIRQVEC = 240 ; .-PROGRAM INTERRUPT REQUEST VECTOR 

.S8TTL RH CONTROLLER REGISTERS 

.-CONTROL AND STATUS REGISTER 1 (RMCS1) 


601 

00 


g 

0 IE 

= 100 

INTERRUPT ENABLE (BIT #6) 

602 


• 

g 

0 RDY 

- 200 

READY (BIT 07 ) 

603 

’• Em 

• 3 

g 

0 A16 

= 400 

HIGH ORDER BUS ADDRESS BIT (BIT #8) 

604 


.t 

g 

0 A17 

= 1000 

HIGH ORDER BUS ADDRESS BIT (BIT #9) 

605 

apBE»|» 

- i 

g 

0 PSEL 

= 2000 

PORT SELECT (BIT #10) 

606 

' Et* 

it 

g 

0 MCPE 

= 20000 

MASSBUSS PARITY ERROR (BIT #13) i 

607 


S3 

g 

0 TRE 

= 40000 

TRANSFER ERROR (BIT #14) 

608 

10 

2 

g 

0 SC 

= 100000 

SPECIAL CONDITION (BIT #15) 


.-CONTROL AND STATUS REGISTER 2 (RMCS2) 


1 

2 

4 

10 

20 

40 

100 

200 

400 

1000 

2000 

4000 

10000 

20000 

40000 

100000 


UNIT SELECT (BIT #0) 

UNIT SELECT (BIT #1) 

UNIT SELECT (BIT 02 ) 

BUS ADDRESS INCREMENT INHIBIT (BIT 01 ) 
MASS8US PARITY TEST (BIT #4) 

CLEAR (BIT #5) 

INPUT READY (BIT #6) 

OUTPUT READY (BIT 07 ) 

MASS BUS PARITY ERROR (BIT #8) 

MISSED TRANSFER ERROR (BIT #9) 

PR06RAM ERROR (BIT #10) 

NON EXISTENT MEMORY (BIT #11) 

NON EXISTENT DRIVE (BIT #12) 

UNIBUS PARITY ERROR (BIT #13) 

WRITE CHECK ERROR (BIT #14) 

DATA LATE (BIT #15) 


.-DATA BUFFER REGISTER (RMDB) 

.-(EACH BIT IS CALLED BY BIT NUMBER) 


S8TTL RM REGISTERS 
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SEQ 00 ^ 


634 


635 


636 

iiii 

637 

Yr iTie 

638 


639 

u i 

640 

fiSiSiMi ir. i 

641 

it' • 

642 

IlSBlSu ifl • 

643 


644 


645 


646 

000040 

647 


648 


649 


650 


651 


652 


653 


654 


655 


656 

■’Mt 2ii» 

657 

»»»« 

658 


659 

,1 !!!i 

660 


661 


662 


663 


664 


665 

KiEii^ 

666 


667 

111®. iti 1 1 • 

668 


669 


670 

E2* : 

671 


6 72 

ifc?u 

673 

HAim 

674 

Hi. * •!• • 

675 

Mfli ill i 

$ 

111 i i ill • 

itSMi.i* *!* » 

1 • i M. * 


r 

| i J sH 

4 i 

680 


681 


6 82 


683 

000001 

684 

001000 

685 

040000 

686 

100000 

8 • • Vh|^H||||||||1 


689 


690 

000001 


L 2 


.-CONTROL AND STATUS REGISTER #1. (#00) 


GO 

= 1 

FO 

= 2 

FI 

= 4 

F2 

= 10 

F3 

= 20 

F4 

= 40 

DVA 

= 4000 


GO BIT (BIT #0) 

FUNCTION CODE BIT #1 
FUNCTION CODE BIT #2 
FUNCTION CODE BIT #3 
FUNCTION CODE BIT #4 
FUNCTION CODE BIT #5 
DEVICE AVAILABLE (BIT #11) 


; CONTROL STATUS REGISTER #2 (RMCS2) 


CLR 


= BIT5 


.•CONTROLLER CLEAR 


.■DRIVE STATUS REGISTER (RMDS) (#01) 


ON 

VV 

DRY 

DPR 

PGM 

LBT 

WRL 

MOL 

PIP 

ERR 

ATA 


BITOO 
100 
2 00 
400 
1000 
2000 
4000 
10000 
20000 
40000 
100000 


OFFSET MODE 
VOLUME VALID (BIT #6) 

DRIVE READY (BIT #7) 

DRIVE PRESENT (BIT #8) 

PROGRAMABLE (BIT #9) 

LAST SECTOR TRANSFERRED (81 T #10) 

WRITE LOCK (BIT #11) 

MEDIUM ON-LINE (BIT #12) 

POSITIONING OPERATION IN PROGRESS (BIT #13) 
COMPOSITE ERROR (BIT #14) 

ATTENTION ACTIVE (BIT #15) 


.•ERROR REGISTER #01 (RMER1) (#02) 


ILF 

s 

1 

ILR 

x 

2 

RMR 

s 

4 

PAR 

r 

10 

FER 

X 

20 

WCF 

X 

40 

ECH 

X 

100 

HCE 

X 

200 

HCRC 

X 

400 

AOE 

X 

1000 

IAE 

X 

2000 

WLE 

X 

4000 

DTE 

X 

10000 

OPI 

X 

20000 

UNS 

X 

40000 

DCK 

s 

100000 


ILLEGAL FUNCTION (BIT #0) 

ILLEGAL REGISTER (BIT #1) 

REGISTER MODIFICATION REFUSED (BIT #2) 
PARITY ERROR (BIT #3) 

FORMAT ERROR (BIT #4) 

WRITE CLOCK FAIL (BIT #5) 

ECC HARD ERROR (BIT #6) 

HEADER COMPARE ERROR (BIT #7) 

HEADER CRC ERROR (BIT #8) 

ADDRESS OVERFLOW ERROR (BIT #9) 

INVALID ADDRESS ERROR (BIT #10) 

WRITE LOCK ERROR (BIT #11) 

DRIVE TIMING ERROR (BIT #12) 

OPERATION INCOMPLETE (BIT #13) 

DRIVE UNSAFE (BIT #14) 

DATA CHECK ERROR (BIT 15) 


.•MAINTAINABILITY REGISTER (RMMR1)(#03> 


DMD 

= 1 

.-DIAGNOSTIC MODE (BIT #0) 

MUR 

= BIT09 

.•MAINTENANCE UNIT READY 

ROB 

= BIT14 

.-PORT B REQUEST FLOP 

RQA 

= BIT15 

.-PORT A REQUEST FLOP 


.•ATTENTION SUMMARY PSEUDO-REGISTER (RMAS) (#04) 
ATO = 1 .-DEVICE 0 (BIT #0) 



SEQ 0025 
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000002 

ATI 

= 2 

000004 

AT2 

= 4 

000010 

AT3 

= 10 

000020 

AT4 

= 20 

000040 

AT5 

= 40 

000100 

AT6 

= 100 

000200 

AT7 

= 200 


7m 

s 

E ■ 

Eaa 

t 

rf 

til 

t 

$ 

AAA 

t 

i 

til 

t 

•A 

til 

7 

B. M 

til 

P 

M 

til 

r!d 

AA 

pi 

kJ 

M 


E 

M M 

AS 

hi 

t 

IS 


t 

TT 

t AA 

E 

aS 


000100 

000200 

000400 

001000 

002000 


000010 

000200 

002000 

004000 

010000 

020000 

100000 


000200 

002000 

004000 

010000 


DEVICE 1 
DEVICE 2 
DEVICE 3 
DEVICE 4 
DEVICE 5 
DEVICE 6 
DEVICE 7 


(BIT #1) 
(BIT 02 ) 
(BIT 05 ) 
(BIT #4) 
(BIT #5) 
(BIT #6) 
(BIT 07 ) 


.•DESIRED SECTOR/TRACK ADDRESS REGISTER (RMDA) (#05) 
.-(EACH BIT IS CALLED BY BIT NUMBER) 

.•DRIVE TYPE REGISTER (RHDT) (#06) 


1 

2 

4 

10 

20 

40 

100 

200 

400 

4000 

20000 

40000 

100000 


DRIVE TYPE NUMBER BIT 1 
DRIVE TYPE NUMBER BIT 2 
DRIVE TYPE NUMBER BIT 3 
DRIVE TYPE NUMBER BIT 4 
DRIVE TYPE NUMBER BIT 5 
DRIVE TYPE NUMBER BIT 6 
DRIVE TYPE NUMBER BIT 7 
DRIVE TYPE NUMBER BIT 8 
DRIVE TYPE NUMBER BIT 9 
DRIVE REQUEST REQUIRED (BIT #11) 
MOVING HEAD (BIT #13) 

TAPE DRIVE (BIT #14) 

NOT BLOCK ADDRESSED (BIT #15) 


.-LOOK-AHEAD REGISTER (RHLA) (#07) 


= 100 
= 200 
= 400 
= 1000 
= 2000 


SECTOR COUNT FIELD 0 (BIT #6) 
SECTOR COUNT FIELD 1 (BIT 07 ) 
SECTOR COUNT FIELD 2 (BIT #8) 
SECTOR COUNT FIELD 3 (BIT #9) 
SECTOR COUNT FIELD 4 (BIT #10) 


;RM ERROR REGISTER #2 (RMER2) (#10) 


DPE 

= 10 

DVC 

= 200 

L8C 

= 2000 

LSC 

= 4000 

IVC 

= 10000 

OPE 

= 20000 

SKI 

= 100000 


.•OFFSET REGISTER (RMOF) (#11) 


OFD 

HCI 

ECI 

FMT16 


= 200 
= 2000 
= 4000 
= 10000 


DATA PARITY ERROR (BIT #3) 
DEVICE CHECK (BIT 07 ) 

LOSS OF BIT CLOCK (81 T #10) 
LOSS OF SYSTEM CLOCK (BIT #11) 
INVALID COMMAND (BIT #12) 
OPERATOR ERROR (BIT #13) 

SEEK INCOMPLETE (BIT #14) 


OFFSET FORWARD (BIT #5) 

HEADER COMPARE INHIBIT (81 T #10) 

ERROR CORRECTION CODE INHIBIT (BIT #11) 
FORMAT BIT (BIT #12 


.•DESIRED CYLINDER ADDRESS (RMDC) (#12) 
.•(EACH BIT IS CALLED BY BIT NUMBER) 

.•SERIAL NUMBER REGISTER (RMSN) (#14) 
.-(EACH IS CALLED BY BIT NUMBER) 
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ScQ 0026 


ii. 

i. 


•• 

' 


»» 

•• 



•• 

• 

• 


•J 


•i. 

•J 


j. 


• 

M 

IF 

! 


IF 

:r. 



n 

n 

•i 

•• 


\ 

•• 


• 


if 



•f 

n 

• 

•F 

• 


;ECC POSITION REGISTER (RMEC1) (#16) 

; (EACH BIT IS CALLED BY BIT NUMBER) 

.ECC PATTERN REGISTER (RMEC2) (#17) 

; (EACH BIT IS CALLED BY BIT NUMBER) 

•SBTTL DEFINITIONS OF THE RH/RM ADDRESS INDEXES 


RMCS1 

RMWC 

RMBA 

RMDA 

RMCS2 

RMDS 

RMER1 

RMAS 

RHLA 

RMDB 

RMMR1 

RMDT 

RMSN 

RMOF 

RMDC 

RMMR2 

RMER2 

RMEC1 

RMEC2 


CONTROL AND STATUS REGISTER #1 (DRIVE REG. 00) 

WORD COUNT REGISTER (NOT A DRIVE REG) 

UNIBUS ADDRESS REGISTER (NOT A DRIVE REG) 

DESIRED SECTOR/TRACK ADDRESS REGISTER (DRIVE REG. 05) 
CONTROL AND STATUS REGISTER #2 (NOT A DRIVE REG) 

DRIVE STATUS REGISTER (DRIVE REG 01) 

ERROR REGISTER #1 (DRIVE REG. 02) 

ATTENTION SUMMARY PSEUDO REGISTER (DRIVE REG. 04) 

LOOK AHEAD REGISTER (DRIVE REG. 07) 

DATA BUFFER REGISTER (NOT A DRIVE REG.) 
MAINTAINABILITY REGISTER (DRIVE REG. 03) 

DRIVE TYPE REGISTER (DRIVE REG. 06) 

SERIAL NUMBER REGISTER (DRIVE REG. 10) 

OFFSET REGISTER (DRIVE REG. 11) 

DESIRED CYLINDER ADDRESS REGISTER (DRIVE REG. 12) 
MAINTENANCE REGISTER #2 (DRIVE REG. 14) 

ERROR REGISTER #2 (DRIVE REG. 15) 

ECC POSITION REGISTER (DRIVE REG. 16) 

ECC PATTERN REGISTER (DRIVE REG. 17) 


SEQ 0027 


CZRNHAO RM80 DUAL PORT PT 1 MACRO 
TRAP CATCHER 


000000 


000174 
000174 000000 

000176 000000 


000200 000137 002240 

2 

3 000204 000137 002250 

4 

5 


000210 
000046 
000046 066040 
000052 
000052 020000 
000210 

6 
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.SflTTL TRAP CATCHER 


•ALL UNUSED LOCATIONS FROM 4 - 776 CONTAIN A .♦2. HALT 
•SEQUENCE TO CATCH ILLEGAL TRAPS AND INTERRUPTS 
•LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 

.=174 . 


DISPRE6: .WORD 0 
SWREG: .WORD 0 

.SBTTL STARTING ADDRESS (ES) 

JNP 8ASTART 

JMP 3*START1 


;; SOFTWARE DISPLAY REGISTER 
;; SOFTWARE SWITCH REGISTER 


;; JUMP TO STARTING ADDRESS OF PROGRAM 
.-START AND CHANGE THE RH/RM ADDRESS 


.S8TTL AC Til HOOKS 


.-HOOKS REQUIRED BY AC Til 
SSVPC=. 

.=46 

SENDAD 

=52 

.*WORD 20000 
.=SSVPC 


.•SAVE PC 

;;1)SET L0C.46 TO ADDRESS OF SENDAD IN .SHOP 

; ; 2) SET LOC.52 TO 20000 
;; RESTORE PC 


I 
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0 .S8TTL COMMON TAGS 


SEO 0028 


;*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGRAM. 


001100 

001100 

001102 

001103 

001104 

001106 

001110 

001112 

001114 

001115 

001116 

001120 

001122 

001124 

001126 

001130 

001132 

001134 

001135 

001136 

001140 

001142 

001144 

001146 

001150 

001152 

001154 

001155 

001156 

001157 

001160 

001162 

001164 

001166 

001170 

001172 

001174 

001176 

001200 

001202 

001206 

001207 

001210 


001100 

000000 

000 

000 

000000 

000000 

000000 

000000 

000 

001 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000 

000 

000000 

177570 

177570 

177560 

177562 

177564 

177566 

000 

002 

012 

000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

000000 

207 

077 

015 

012 


SCMTAG: 

SPASS: 

STSTNM: 

SERFLG: 

SICNT: 

SLPADR: 

SLPERR: 

SERTTL: 

SITEMB: 

SERMAX: 

SERRPC : 

SGDADR: 

SBDADR: 

SGDDAT : 

S6DDAT : 


SAUTOB: 

SINTAG: 

SUR: 

DISPLAY 

STAS: 

ST KB: 

ST PS: 

STPB: 

SHULL: 

SPILLS: 

SPILLC: 

STPPLG: 

SREGAD: 


SREGO: 
STMPO: 
STMP1 : 
STMP2: 
STMP3: 
STMP4 : 
STIMES 


.=1100 


.BYTE 

.BYTE 



.BYTE 

.BYTE 


.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.BYTE 
.BYTE 
.WORD 
.WORD 
r .WORD 
177560 
177562 
177564 
177566 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

0 


0 

0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

c 

0 

0 

0 

0 

0 

0 

0 

DSWR 

DDISP 


377 

377 S8ELL: 

.ASCiZ 

<207><377><377> 


SQUES: 

.ASCII 

/?/ 


SCRLF : 

.ASCII 

<15> 

000 

SLF: 

.ASCIZ 

<12> 


;; START OP COMMON TAGS 
.'.•CONTAINS PASS COUNT 
;; CONTAINS THE TEST NUMBER 
.'.'CONTAINS ERROR FLAG 
; .-CONTAINS SUBTEST ITERATION COUNT 
.'.'CONTAINS SCOPE LOOP ADDRESS 
;; CONTAINS SCOPE RETURN FOR ERRORS 
;; CONTAINS TOTAL ERRORS DETECTED 
;; CONTAINS ITEM CONTROL BYTE 
.'.'CONTAINS MAX. ERRORS PER TEST 
;; CONTAINS PC OF LAST ERROR INSTRUCTION 
;; CONTAINS ADDRESS OF 'GOOD' DATA 
;; CONTAINS ADDRESS OF 'BAD* DATA 
;; CONTAINS 'GOOD' DATA 
;; CONTAINS ’BAD* DATA 
; .'RESERVED— NOT TO BE USED 

;; AUTOMATIC MODE INDICATOR 
.-.‘INTERRUPT MODE INDICATOR 

; .'ADDRESS OF SWITCH REGISTER 
; .-ADDRESS OF DISPLAY REGISTER 
;;TTY KBD STATUS 
;;TTY KBD BUFFER 

;;TTY PRINTER STATUS REG. ADDRESS 
; ; TTY PRINTER BUFFER REG. ADDRESS 
.'.'CONTAINS NULL CHARACTER FOR FILLS 
.'.'CONTAINS # OF FILLER CHARACTERS REQUIRED 
; .'INSERT FILL CHARS. AFTER A ‘1INE FEED** 

;; ‘TERMINAL AVAILABLE" FLAG (BIT<07>=0=YES) 
.'.•CONTAINS THE ADDRESS FROM 
.'.•WHICH (SREGO) WAS OBTAINED 
.'.'CONTAINS < (SREGAD) +0) 

.'.'USER DEFINED 

.'.'USER DEFINED 

.-.'USER DEFINED 

;;USER DEFINED 

.'.‘USER DEFINED 

;;MAX. NUMBER OF ITERATIONS 

.-.-ESCAPE ON ERROR ADDRESS 

.'.'CODE FOR BELL 

.-.‘QUESTION MARK 

.*; CARRIAGE RETURN 

.-.-LINE FEED 


0 0 


D 


i ZRNHAO RM80 DUAL PORT PT I MACRO V04.00 15-JAN-82 07 : 09:22 PAGE 7 
j USER DEFINFD TAGS 


00121 2 
001 214 
001216 
001220 
001222 
001224 
001226 
001230 
C01232 
001234 
001236 
001240 
001242 
001244 
001246 
001250 
001252 
001254 
001256 
001260 
001262 
001264 
001266 
001270 
001272 
001274 
001276 
001300 
001302 


172540 

172542 

000104 

177546 

000100 

000000 

000000 

000000 

000000 

000000 

000000 

oooooo 

000000 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 

oooooo 


Kj 

TiTiT 

i 

T i 

Mil 

ii 

7 j 

Mil 

il 

ffi 

T»M 

• 


001304 176700 
001306 000254 


.S8TTL USER DEFINED TAGS 


SLKCSR: 

.WORD 

172540 

SLKCS8: 

.WORD 

172542 

SLPVEC: 

.WORD 

104 

SlKS: 

.WORD 

177546 

SLLVEC: 

.WORD 

100 

PORTA: 

.WORD 

0 

PORTB: 

.WORD 

0 

PORTC: 

.WORD 

0 

RQSTA: 

.WORD 

0 

RQS1B: 

.WORD 

0 

ASR1 : 

.WORD 

0 

PTNBR: 

.WORD 

0 

SEIZPT: 

.WORD 

0 

OPPRT : 

.WORD 

0 

TSTNUM: 

.WORD 

0 

CKERR: 

.WORD 

0 

NOSEIZ: 

.WORD 

0 

RELERR: 

.WORD 

0 

TIME: 

.WORD 

0 

HATCH: 

.WORD 

0 

TIMEA: 

.WORD 

0 

TIMEAP: 

.WORD 

0 

TIMEAM: 

.WORD 

0 

TIMES: 

.WORD 

0 

TIMEBP: 

.WORD 

0 

TIMEBM: 

.WORD 

0 

TIMES: 

.WORD 

0 

KYBCTL: 

.WORD 

0 

CHGADR : 

.WORD 

0 

.S8TTL 

RH/RM UNIBUS AND 

SRMADR: 

.WORD 

176700 

SRMVEC : 

.WORD 

254 


3 


SEQ 0029 


ADDR OF KW11-P STATUS REGISTER 
ACDR OF KW1 1 -P COUNTER BUFFER 
ADDR OF KW11-P VECTOR 
ADDR Or KU1 1— L STATUS REGISTER 
ADDR OF KW11-L VECTOR 
ADDRESS OF PORT A 
ADDRESS OF PORT B 
ADDRESS OF DIFFERENT DRIVE 
REQUEST BIT FOR PORT A 
REQUEST BIT FOR PORT B 
ATA-A OR ATA-B = 1 

CONTAINS THE PORT ADDRESS FOR ERROR TYPEOUTS 

CONTAINS THE ADDRESS OF THE SEIZING PORT 

CONTAINS THE ADDRESS OF THE •OPPOSITE' PORT 

NUMBER OF THE CURRENT TEST 

IF -1. A REGISTER HISCOMPARISON OCCURRED 

IF -1, THE PORT IN ’SEIZPT’ DID NOT SEIZE THE DRIVE 

IF -1. THE PORT IN 'SEIZPT' DID NOT RELEASE THE DRIVE 

ELAPSED TIME COUNTER 

MATCH DOG TIMER LOCATION 

THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT A 
PORT A TIMEOUT VALUE ♦ 251 
PORT A TIMEOUT VALUE - 25X 

THE TIMEOUT ONE-SHOT VALUE MEASURED THROUGH PORT B 

PORT A TIMEOUT VALUE ♦ 25X 

PORT B TIME VALUE - 25X 

STORAGE FOR TIMEOUT ONE-SHOT RETRIGGER TEST 

SINGLE TEST INDICATOR 

CHANGE THE RH/RM ADDRESS INDICATOR 

ADDRESSES 

; RH/RM UNIBUS ADDRESS 
; INTERRUPT VECTOR ADDRESS 



SEO 0030 


CZRNHAO RM80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 8 
ERROR POINTER TABLE 


.S8TTL ERROR POINTER TABLE 

•THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 

•THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 

•LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 

•N0TE1: IF SITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRPC). 

NOTE 2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 

* EM ;;POINTS TO THE ERROR MESSAGE 

* DH ;; POINTS TO THE DATA HEADER 

* DT ;;POINTS TO THE DATA 

* D F ;;POINTS TO THE DATA FORMAT 


001310 

001312 

001314 

001316 


001310 

1 
2 

3 

4 

5 

6 

7 

8 

9 

10 

11 001320 

12 001322 

13 001324 

14 001326 

15 

16 

17 

18 001330 

19 001332 

20 001334 

21 001336 

22 

23 

24 

25 001340 

26 001342 

27 001344 

28 001346 


32 001350 

33 001352 

34 001354 

35 001356 

36 

37 

38 

39 001360 

40 001362 

41 001364 

42 001366 


072654 

077306 

101176 

101464 


072675 

077306 

101176 

101464 


072717 

077357 

101212 

101464 


073001 

077426 

101260 

101477 


073032 

077551 

101226 

101471 


073100 

100021 

101300 

101471 


SERRTB: 

; ERROR 1 


EMI 

DH1 

DTI 

DF1 


.-ERROR 2 


EM2 

DH1 

DTI 

DF1 


.-ERROR 3 


EM3 

DH3 

DT3 

DF1 


.-ERROR 4 


EM4 
DM4 
DT 7 
DF7 


.-ERROR 5 


EM5 

DH5 

DT5 

DF5 


.-ERROR 6 


EM6 

DH13 

DT13 

DF5 


.-WRONG DRIVE TYPE 


.-DRIVE NOT ON LINE 


.-SERIAL NUMBERS NOT THE SAME 


.-DRIVE NOT SEIZED BY PORT ’N' 


.-WRONG STATUS SEEN BY THE SEIZING PORT 


.-REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZED 
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SEQ 0031 


f 3 


A3 

AA 

A5 

A6 

A7 

A8 

A9 

50 

51 

52 

53 
5A 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6A 

65 

66 

67 

68 

69 

70 

71 

72 

73 
7A 

75 

76 

77 

78 

79 

80 
81 
82 
83 
8A 

85 

86 

87 

88 

89 

90 

91 

92 

93 
9A 

95 

96 

97 

98 

99 




.•ERROR 

7 

001370 
001372 
001 37A 
001376 

073200 

077625 

101260 

101 A77 


EM7 

DH7 

DT7 

DF7 



.-ERROR 

10 

001 AOO 
001 A02 
001 AOA 
001 A06 

073261 

077551 

101226 

101A71 


EM10 

DH5 

DT5 

DF5 



.•ERROR 

11 

001A10 
001 A1 2 
001 A1 A 
001 A16 

073311 

077750 

101176 

101A6A 


EM11 

DH11 

DTI 

DF1 



.•ERROR 

12 

001 A20 
001 A22 
001 A2A 
001 A26 

073375 

100515 

101366 

101512 


EMI 2 
DH36 
DT37 
DF36 



; ERROR 

13 

001 A30 
001 A32 
001 A3A 
001 A36 

073AA5 

100021 

101300 

101A71 


EMI 3 
DH13 
DT13 
DF5 



.•ERROR 

1A 

oooo 

oooo 

O'J'IVjO 

073532 

100021 

101300 

101A71 


EMI A 
DH13 
DT13 
DF5 



.•ERROR 

15 

001 A50 
001 A 52 
001 A5A 
001 A56 

073575 

077625 

101260 

101A77 


EMI 5 
DH7 
DT7 
DF7 



.•ERROR 

16 

001 A60 
001 A62 
001 A6A 
001 A66 

07365A 

077625 

101260 

101477 


EMI 6 
DH7 
DT7 
DF7 


.•REGISTER CONTENTS INCORRECT AFTER RELEASE/TIMEOUT 


.•REGISTER CONTENTS INCORRECT 


.•CONTROL BUS PARITY ERROR WHILE READING REGISTER 


; DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND 


VOLUME VALID' BIT NOT SET BY READIN PRESET 


.-'VOLUME VALID' SET ON THE OPPOSITE PORT 


.-THE ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET 


;ATTN BIT WRONG AFTER RELEASE - REQUEST WAS SET 


SE3 0032 


6 3 
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ERROR POINTER TABLE 


100 


.•ERROR 17 

101 



10? 001 470 

073727 

EMI 7 

103 001472 

077625 

DH7 

104 001474 

101260 

DT7 

105 001476 

101477 

DF7 

106 



107 


.•ERROR 20 

108 



109 001500 

074006 

EM20 

110 001502 

100515 

DH36 

111 001504 

101366 

DT37 

112 001506 

101512 

DF36 

1 1 5 

114 


.■ERROR 21 

115 



116 001510 

074066 

EM21 

117 001512 

100515 

DH36 

118 001514 

101366 

DT37 

119 001516 

101512 

DF36 

120 



121 


.•ERROR 22 

122 



123 001520 

074141 

EM22 

124 001522 

100141 

DH22 

125 001524 

101316 

DT22 

126 001526 

101506 

DF31 

127 



128 


.•ERROR 23 

129 



130 001530 

074226 

EM23 

131 001532 

100237 

DH23 

132 001534 

101330 

DT23 

133 001536 

101464 

DF1 

134 



135 


.•ERROR 24 

1 36 

137 001540 

074274 

EM24 

138 001542 

100237 

DH23 

139 001544 

101330 

DT23 

140 001546 

101464 

DF1 

141 



142 



143 


.•ERROR 25 

144 



145 001550 

074353 

EM25 

146 001552 

100515 

DH36 

147 001554 

101356 

DT36 

148 001556 

101512 

DF36 

149 



150 



151 


.•ERROR 26 

152 



153 001560 

074416 

EM26 

154 001562 

100141 

DH22 

155 001564 

101316 

DT22 

156 001566 

101506 

DF31 


;ATTN BIT WRONG AFTER RELEASE - REQUEST NOT SET 


; DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED 


; DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT FOR PORT 


; DRIVE NOT IN NEUTRAL AFTER TIMEOUT. REQUEST NOT SET 


.•TIMEOUT CLEARED THE DRIVE’S ERROR BIT 


.‘RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET 


.•TIMEOUT ONE-SHOT DID NOT RETRIGGER 


.‘DRIVE NOT IN NEUTRAL AFTER RELEASE. REQUEST NOT SET 
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SEQ 0033 


H 3 


157 

158 

159 

160 
161 
162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 
213 


; ERROR 27 


001 570 

074503 

EM27 

001572 

077625 

DH7 

001574 

101260 

DT7 

001576 

101477 

DF7 



.-ERROR 30 

001600 

074561 

EM30 

001602 

100515 

DH36 

001604 

101356 

DT36 

001606 

101512 

DF36 



; ERROR 31 

001610 

074656 

EM31 

001612 

100416 

DH31 

001614 

101344 

DT31 

001616 

101506 

DF31 



; ERROR 32 

001620 

074733 

EM32 

001622 

077551 

DH5 

001624 

101226 

DT5 

001626 

101471 

DF5 



.ERROR 33 

001630 

075004 

EM33 

001632 

100515 

DH36 

001634 

101356 

DT36 

001636 

101512 

DF36 



; ERROR 34 

001640 

075106 

EM34 

001642 

100515 

DH36 

001644 

101356 

DT36 

001646 

101512 

DF36 



; ERROR 35 

001650 

075211 

EM35 

001652 

100515 

DH36 

001654 

101366 

DT37 

001656 

101512 

DF36 



; ERROR 36 

001660 

075270 

EM36 

001662 

100515 

DH36 

001664 

101356 

DT36 

001666 

101512 

DF36 


.•REGISTER WRONG AFTER RELEASE WITH REQUEST SET 


.•DRIVE SEIZED BY RELEASE ISSUED WHEN DRIVE IN NEUTRAL 


.•DRIVE NOT SEIZED BY PORT AFTER RELEASE WIITH REQUEST SET 


;ATTN BIT WRONG AFTER RECALIBRATE COMMAND 


.•DRIVE RETURNS TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED 


.’DRIVE RETURNS TO NEUTRAL IF MASS8US INIT GIVEN WHILE DRIVE SEIZED 


.•DRIVE DID NOT RETURN TO NEUTRAL BY TRIGGERING TIMEOUT UNE SHOT 


.•TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS 
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ERROR POINTER TABLE 


214 


.•ERROR 37 

21 5 

216 001670 

075342 

EM37 

217 001672 

100515 

DH36 

218 001674 

101366 

DT37 

219 001676 

101512 

DF36 

220 

221 


; ERROR 40 

222 

223 001700 

075410 

EM40 

224 001702 

077306 

DHl 

225 001704 

101330 

DT23 

226 001706 

101464 

DF1 

227 

228 

229 

230 001710 


; ERROR 41 

075465 

EM41 

231 001712 

100237 

DH23 

232 001714 

101330 

DT23 

233 001716 

101464 

DF1 

234 

235 

236 

237 001720 


.•ERROR 42 

075527 

EM42 

238 001722 

100544 

DH42 

239 001724 

101376 

DT42 

240 001726 

101515 

DF42 

241 

242 

243 

244 001730 


.•ERROR 43 

075615 

EM43 

245 001732 

100544 

DH42 

246 001734 

101376 

DT42 

247 001736 

101515 

DF42 

248 

249 

250 

251 001740 


.•ERROR 44 

075672 

EM44 

252 001742 

100563 

DH44 

253 001744 

101344 

DT31 

254 001746 

255 

256 

257 

258 001750 

101506 

DF31 


.•ERROR 45 

075747 

EM45 

259 001752 

077306 

DHl 

260 001754 

101176 

DTI 

261 001756 

101464 

DF1 

262 

263 

264 

265 001760 


.ERROR 46 

076021 

EM46 

266 001762 

100661 

DH46 

267 001764 

101404 

DT46 

268 001766 

101506 

DF31 

269 

270 


.ERROR 47 



22 PAGE 8-4 


SEO 0034 


I 3 


.-DRIVE IS NON-EXISTENT 


.•ATTENTION FOR PORT NOT RESET BY MASSBUS CLEAR 


.•TIMEOUT CLEARED ATTENTION BIT 


.-DRIVE NOT IN NEUTRAL OR SEIZED 


.•DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTEN 


.•WRITE ATTENTION BIT DID NOT SET PORT REQUEST 


.-PORT SELECT SWITCH ON DRIVE NOT IN 'A/B' 


.•CAN’T ACCESS DRIVE THROUGH EITHER PORT 



J 3 _ r 
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271 

272 001770 

273 001772 

076070 

EM47 

;ATTN BIT FOR SEIZING PORT NOT CLEARED BY DRIVE CLEAR 

100237 

DH23 


274 001774 

101330 

9T23 


275 001 7 .’6 

101464 

DPI 


276 

277 

278 

279 002000 

076156 

; ERROR 50 

EM50 

;ATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR COMMAND 

280 002002 

100021 

DM13 


281 002004 

101300 

DT13 


282 002006 

283 

284 

285 

286 002010 

101471 

DF5 


076240 

; ERROR 51 

EM51 

;ATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL 

287 002012 

077551 

DH5 


288 002014 

101226 

DT5 


239 002016 

101471 

DF5 


290 

291 

292 

293 002020 

076327 

; ERROR 52 

EM52 

;ATTN BIT SET AFTER TIMEOUT, 'ERR* SET, NO REQUEST 

294 002022 

100021 

DH13 


295 002024 

101300 

DT13 


296 002026 

101471 

DF5 


297 

298 

299 

300 002030 

076422 

; ERROR 53 

EM53 

.•CAN'T READ ATTN BIT FROM OPPOSITE PORT 

301 002032 

100237 

DH23 


302 002034 

101176 

DTI 


303 002036 

101464 

DF1 


304 

305 

306 

307 002040 

076503 

; ERROR 54 

EM54 

;RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT 1 

308 002042 

100141 

DH22 


309 002044 

101416 

DT54 

1 

310 002046 

101506 

DF31 


311 

312 

313 

314 002050 

076576 

.-ERROR 55 

EM55 

.'TIMEOUT ONE-SHOT IS LFSS THAN 500 MS 

315 002052 

100756 

DH55 


316 002054 

101430 

DT55 


317 002056 

101517 

DF55 


318 

319 

320 

321 002060 

076643 

.ERROR 56 

EM56 

.RH/RM DIDN'T RESPOND TO ADDRESSING 

322 002062 

101034 

DH56 


323 002064 

101442 

DT56 


324 002066 

101523 

DF56 


325 

326 

327 


.ERROR 57 



J 
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SEQ 0036 


K 3 


328 



EM57 

329 002070 

076706 


330 002072 

101043 


DH57 

331 002074 

101446 


DT57 

332 002076 

333 

101471 


DF5 

334 

335 


.•ERROR 

60 

336 002100 

076747 


EM60 

337 002102 

077551 


DH5 

338 002104 

101226 


DT5 

339 002106 

340 

101471 


DF5 

341 

342 


; ERROR 

61 

343 002110 

077013 


EM61 

344 002112 

100237 


DH23 

345 002114 

101330 


DT23 

346 002116 

347 

101464 


DF1 

348 

349 


.-ERROR 

62 

350 002120 

077045 


EM6 2 

351 002122 

100021 


DH13 

352 002124 

101300 


DT13 

353 002126 

354 

101471 


DF5 

355 

356 


.•ERROR 

63 

357 002130 

077113 


EM63 

358 002132 

100515 


DH36 

359 002134 

101356 


DT36 

360 002136 

361 

101512 


DF36 

362 

363 


; ERROR 

64 

364 002140 

077161 


EM64 

365 002142 

077625 


DH7 

366 002144 

101260 


DT7 

367 002146 

368 

101477 


DF7 

369 

370 

371 002150 


; ERROR 

65 

077234 


EM65 

372 002152 

077551 


DH5 

373 002154 

101226 


DT5 

374 002156 

375 

101471 


DF5 


.-PORT REQUEST FLOPS WRONG 


.'ATTENTION BITS NOT RESET BY RMAS 


.•ATTENTION NOT RESET BY GO 


.-ATTENTION RESET BY GO WHEN NOT SEIZED 


.-DRIVE SEIZED BY , *UR" CHANGE IN RMRR1 


ATTENTION NOT SET BY ’WUR" CHANGE IN RMMR1 


; VV NOT RESET BY RMMR1 ‘WUR" IN RMMR1 


L 3 


SEQ 003? 
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1 


.-THIS ROUTINE HANDIES UNEXPECTED TIMEOUTS 


3 002160 

011600 

BADTMO: MOV 

(SP).RC 

-CRO) 

.SAVE PC WHERE THE TIME OUT OCCURED 

4 002 1b2 

005740 

TST 

.•ADJUST PC -2 

5 002164 

022626 

CMP 

<SPH.(SP) + 

.•RESTORE STACK POINTER 

6 002166 

104401 002174 

TYPE 

.65$ 

.-.-TYPE ASCIZ STRING 

002172 

000417 

BR 

64$ 

;;GET OVER THE ASCIZ 


002232 

7 002232 

8 002234 

9 002236 
10 

11 

12 

13 

14 002240 

15 002242 

16 002246 

17 002250 

18 

19 002256 

20 002262 

21 002264 

22 

23 

002266 

002272 

002274 

002300 

002302 

002306 

002314 

002322 

002330 

002336 

002344 

002352 

002360 

002364 

002370 

002376 

002404 


002412 

002416 

002424 

002432 

002440 

002446 

002450 

002452 

002456 


010046 

104402 

000240 


000240 

005037 

000403 

012737 

005227 

001375 

000005 


012706 

005026 

022706 

001374 

012706 

012737 

012737 

012737 

012737 

012737 

012737 

013737 

005037 

005037 

112737 

012737 

012737 


012737 

012737 

022777 

001012 

000403 

012716 

000002 


001302 

177777 

000000 


001100 

001140 

001100 

066314 

000340 

066676 

000340 

072234 

000340 

065676 

001176 

001200 

000001 

002376 

002404 


000004 

002452 

177570 

177570 

177777 


002460 


;;65$: 

64$: 


.ASCIZ <CRLF>/UNEXPECTED BUS TIMEOUT. PC=/ 


001302 


000020 

000022 

000030 

000032 

000034 

000036 

065670 


001115 

001106 

001110 


000004 

001140 

001142 

176472 


MOV 

TYPOC 

NOP 


RO.-(SP) 


.S8TTL START OF PROGRAM 


START: NOP 
CLR 
BR 

START1 : MOV 


CHGADR 
START2 
#-1. CHGADR 


START2: INC #0 

BNE .-4 

RESET 

.SBTTL INITIALIZE 
;; CLEAR THE COMMON 


.•SETUP FOR TYPING OUT PC 

;PUT 'HALT(O) ' INSTRUCTION HERE IF YOU WISH 
;T0 STOP ON UNEXPECTED TIMEOUT. 


.•CLEAR THE 'CHANGE RH/RM ADDRESS' INDICATOR 
;G0 TO THE START 

;SET THE 'CHANGE RH/RM ADDRESS’ INDICATOR 

;TTY LOOP. WAIT FOR INCREMENT 
;0F WORD 

.’CLEAR THE WORLD 


MOV 
CLR 
CMP 
BNE 
MOV 

.-.INITIALIZE 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLR 

CLR 

M0V8 

MOV 

MOV 

.-.-SIZE FOR A 

;; EQUAL TO A 
MOV 
MOV 
MOV 
MOV 
CMP 
BNE 


THE COMMON TAGS 
TAGS (SCMTAG) AREA 


.•FIRST LOCATION TO BE CLEARED 
.‘CLEAR MEMORY LOCATION 
.•DONE? 

.•LOOP BACK IF NO 
.•SETUP THE STACK POINTER 


#$CMTAG,R6 
<R6>* 

#SWR,R6 

fSTACK.SP 
A FEU VECTORS 

#$SC0PE.8#I0TVEC ;.*IOT VECTOR FOR SCOPE ROUTINE 
#340,a#I0TVEC*2 .-.-LEVEL 7 

#$ERROR.a#EMTVEC ; ; EMT VECTOR FOR ERROR ROUTINE 
#340,i#EMTVEC+2 .‘.‘LEVEL 7 
#$TRAP,8#TRAPVEC ;;TRAP VECTOR FOR TRAP CALLS 
#340,3#TRAPVEC+2;LEVEL 7 

SENDCT.SEOPCT ; .-SETUP END-OF -PROGRAM COUNTER 

$TIMES ;; INITIALIZE NUMBER OF ITERATIONS 

SESCAPE .‘.’CLEAR THE ESCAPE ON ERROR ADDRESS 

fl.SERMAX .- .-ALLOW ONE ERROR PER TEST 

#. .SLPADR .-.-INITIALIZE THE LOOP ADDRESS FOR SCOPE 

#..$LPERR .-.-SETUP THE ERROR LOOP ADDRESS 

HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
"-I". SETUP FOR A SOFTWARE SWITCH REGISTER. 


64$: 


BR 

MOV 

RTI 


arERRVEC.-(SP) 
#64$,i#ERRVEC 
#DSWk.SWR 
fDDISP, DISPLAY 
#-1,8SWR 
66 $ 

65$ 

#65$. (SP) 


.-SAVE ERROR VECTOR 
.-SET UP ERROR VECTOR 
.•SETUP FOR A HARDWARE SWICH REGISTER 
.-AND A HARDWARE DISPLAY REGISTER 
.-TRY TO REFERENCE HARDWARE SWR 
.•BRANCH IF NO TIMEOUT TRAP OCCURRED 
.-AND THE HARDWARE SWR IS NOT = -I 
.•BRANCH IF NO TIMEOUT 
..-SET UP FOR TRAP RETURN 
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SEQ 0038 


002460 

002466 

002474 

24 

25 002500 

26 002506 

27 

28 

002514 

002520 

002522 

002530 

002532 

002536 

002606 

002606 

002612 

002614 

002622 

002624 

002626 

002630 

002636 

29 002636 

30 002642 

31 002646 

32 002652 

33 002654 

34 002660 

35 002666 

36 002670 

37 U02674 

38 002676 

39 002704 

40 002710 

41 002716 

42 002722 

43 002726 

44 002732 

45 002736 

002742 

002744 

002745 

46 002746 

47 002752 

002756 

002760 

002761 

48 002762 

49 002766 
*>0 002774 


012737 

012737 

012637 


012737 

012737 


005227 

001032 

022737 

001426 

104401 

000423 


005737 

001006 

023727 

001005 

104406 

000403 

112737 

004737 

004737 

104401 

104412 

012637 

023727 

101403 

104401 

000762 

013737 

005237 

042737 

013746 

042716 

052637 

104401 

013746 

104403 

001 

000 

104401 

013746 

104403 

001 

000 

104401 

013737 

062737 


000176 

000174 

000004 


002160 

000300 


177777 


001140 65$: MOV #SWRE6,SWR ; .-POINT TO SOFTWARE SWR 

001142 MOV #DISPREG, DISPLAY 

66$: NOV (SP)+,a#ERR7£C .-.-RESTORE ERROR VECTOR 

.-SETUP ‘TIMEOUT" TRAP VECTOR FOR UNEXPECTED BUS TIMEOUTS 
000004 MOV #8ADTN0.ERRVEC .-SETUP FOR UNEXPECTED TIMEOUT 

000006 MOV #PR6.ERRVEC*2 .-LEVEL 6 

.SBTTL T ' / 'E PROGRAM NAME 

;;T YPE Trtc NAME OF THE PROGRAM IF FIRST PASS 


066040 000042 
002540 


000042 

001140 000176 


000001 001134 

070540 

003236 

072322 


;; 68 $: 

67 $: 

.SBTTL 


001224 

001224 

072351 

001224 

001226 

000016 

001224 

177771 

001226 

072374 

001224 


072423 

001226 


001207 

001224 

000006 


000007 


001226 

001226 


E PROGRAM NAME 

Lie NAME OF THE PROGRAM 

IF FIRST PASS 

INC 

#-1 

; .-FIRST TIME? 

BNE 

67$ 

.-.-8RANCH IF NO 

CMP 

#$ENDAD,8#42 

; .-ACT-11? 

BEQ 

67$ 

;; BRANCH IF YES 

TYPE 

.68$ 

.-.-TYPE ASCIZ STRING 

BR 

67$ 

.-.-GET OVER THE ASCIZ 

.ASCIZ 

<CRLF>aCZRTJHAO 

- RM80 DUAL PORT TEST 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


TST 

BNE 

CMP 

BNE 

GTSWR 

BR 


a#42 

69$ 

SWR.#SWREG 

70$ 


001230 

001230 


M0V8 

#1 ,$AUT03 

JSR 

PC.STKINT 

J SR 

PC. CHANGE 

TYPE 

.ENTERA 

RDOCT 

MOV 

(SPH. PORTA 

CMP 

PORTA.#? 

BLOS 

2$ 

TYPE 

.ADRERR 

BR 

1$ 

MOV 

PORTA, PORTB 

INC 

PORTS 

BIC 

#16. PORTB 

MOV 

PORTA. -CSP) 

BIC 

#*C6.(SP) 

BIS 

<SP>+. PORTB 

TYPE 

.PORTAIS 

MOV 

PORTA. -(SP) 

TYPOS 

.BYTE 

1 

.BYTE 

0 

TYPE 

.PORTBIS 

MOV 

PORTB, -(SP) 

TYPOS 

.BYTE 

1 

.BYTE 

0 

TYPE 

.SCRLF 

MOV 

PORTA. PORTC 

ADD 

#6,P0RTC 


.-.-ARE WE RUNNING UNDER XXDP/ACT? 
.-.-BRANCH IF YES 

; .-SOFTWARE SWITCH REG SELECTED? 

.-.-BRANCH IF NO 

.-.-GET SOFT-SWR SETTINGS 

.-.-SET AUTO-MODE INDICATOR 

.-SETUP THE TTY KEYBOARD 

.•CHECK/CHANGE THE RH/RM ADDRESS 

; ENTER DRIVE ADDRESS 

.-GET THE ADDRESS 

.-STORE THE ADDRESS 

.-SEE IF ADDRESS TOO LARGE 

;BR IF NOT 

.-TYPE ADDRESS ERROR MESSAGE 
;TRY AGAIN 

.-GENERATE THE PORT B ADDRESS 
; INCREMENT THE ADDRESS 
.-LEAVE BIT 0 

;PUT PORT A ADDRESS ON THE STACK 
.-SAVE BITS 1 $ 2 

.-SET BITS 1 ft 2 IN PORT B ADDRESS 
.-•PORT A ADDRESS IS 1 
.-.-SAVE PORTA FOR TYPEOUT 
.-.-TYPE PORT A ADDRESS 
;;G0 TYPE— OCTAL ASCII 
.-.-TYPE 1 DIGIT (S) 

.-.-SUPPRESS LEADING ZEROS 
.-tpORT B ADDRESS IS 1 
; ; SAVE PORTS FOR TYPEOUT 
.-.-TYPE PORT B ADDRESS 
;;G0 TYPE— OCTAL ASCII 
; ; TYPE 1 DIGIT(S) 

;; SUPPRESS LEADING ZEROS 
.-ANOTHER CR-LF „ 

.-GENERATE ADDRESS OF DRIVE NOT TESTED 
.-COMPLEMENT SOME BITS 


! 


see 0039 i 
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51 003002 

042737 

177770 

001230 

BIC 

#*C7,P0RTC 

52 003010 

013701 

001224 


MOV 

PORTA, R1 

53 003014 

116137 

101640 

C01236 

M0V8 

ATABIT(RI) ,ASR1 

56 003022 

005037 

001262 


CLR 

TIMEA 

003026 

005037 

001264 


CLR 

TIMEAP 

00303? 

005037 

001270 


CLR 

TIMES 

003036 

005037 

001272 


CLR 

TIMEBP 

57 003042 

004757 

066060 


JSR 

PC.CKCLK 

58 003046 

000137 

003062 


JMP 

EXEC 

59 003052 

104401 

072452 

3$: 

TYPE 

.NOCLOCK 

60 003056 

61 003060 

000000 

000776 


HALT 

BR 

3$ 


.-SAVE ONLY LOWER BITS 
;USE PORT A ADDRESS AS INDEX 
;GET ATTENTION BIT FOR DRIVE 
.•CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.•CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.•CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
; CLEAR TIMEOUT ONE-SHOT VALUE LOCATION 
.SETUP CLOCK 
.•CLOCK HAS BEEN STARTED 
;N0 CLOCK ON SYSTEM 
; FATAL ERROR 
.•INTERLOCK THE HALT 


62 

63 

64 

65 003062 

66 003064 

67 003070 

68 003074 

69 003100 

70 003104 

71 003110 

72 003112 

73 003116 

74 003122 

75 003126 

76 003134 

77 003142 

78 003150 

79 003154 

80 003156 

81 003160 

82 003162 

83 

84 003166 

85 003172 

86 003174 

87 003200 

88 003202 

89 003204 

90 003206 

91 003212 

92 003220 
003224 
003230 
003232 

93 003232 

94 

95 

96 

97 003236 

98 003242 


.•ROUTINE TO GET THE TEST NUMBER FROM THE OPERATOR 


000005 

005037 

104401 

013700 

012706 

004737 

000240 

004737 

005037 

005037 

112737 

012737 

012737 

104401 

104412 

012601 

001002 

000137 

020137 

003403 

104401 

000763 

005301 

006301 

005237 

012737 

012746 

012746 


177776 

001207 

001304 

001100 

066060 

070540 

001300 

001100 

000001 001115 
003134 001106 
003142 001110 
072510 


003346 

101650 

072530 


001300 

000001 001104 

000240 

003232 


97 003236 

98 003242 

99 003244 

100 003250 

101 003254 
003260 


000171 101524 

005737 001302 
001421 

005037 001302 
104401 072570 
013746 001304 
104402 


EXEC: 

RESET 



CLR 

PS 


TYPE 

.SCRLF 


MOV 

5RMADR.R0 


MOV 

ASTACK.SP 


JSR 

NOP 

PC.CKCLK 


JSR 

PC.5TKINT 


CLR 

KYBCTL 


CLR 

5PASS 


movb 

#1 .5ERMAX 


MOV 

#. .SLPADR 


MOV 

#. .5LPERR 

15: 

TYPE 

RDOCT 

.TESTNO 


MOV 

(SPJ+.R1 


BNE 

25 


JMP 

TST1AA 

25: 

CMP 

R1 .MAXTN 


BLE 

35 


TYPE 

.BADNO 


BR 

Is 

35: 

DEC 

R1 


ASL 

R1 


INC 

KYBCTL 


MOV 

#1 .5ICNT 


MOV 

#PR5.-(SP> 

645: 

MOV 

RTI 

#645, -(SP) 

JMP 

BTSTADR(RI) 


CLEAR EVERYTHING 

CLEAR THE PROCESSOR STATUS WORD 

CR-LF 

RH/RM ADDRESS FOR INDEXING 

LOAD STACK POINTER 

START THE CLOCK 

RETURN IF NO CLOCK 

INITIALIZE THE KEYBOARD 

CLEAR SINGLE TEST INDICATOR 

CLEAR THE PASS COUNT 

SET ERROR MAX TO 1 

INITIAL SETTING FOR LOOP ADDRESS 

INITIAL SETTING FOR LOOP ON ERROR ADDRESS 

ASK FOR TEST NUMBER 

GET THE NUMBER 

PUT ENTRY INTO R1 

BR IF NOT ZERO 

ENTER ZERO - PERFORM ALL TESTS 

SEE IF NUMBER GREATER THAN MAXIMUM 

BR IF LESS OR EQUAL 

BAD ENTRY 

TRY AGAIN 

DECREMENT ENTRY 

SHIFT IT LEFT 

SET SINGLE TEST INDICATOR 

PRESET ITERATION COUNT 

;PUT NEW PS ON STACK 

;PUT NEW PC ON STACK 

;POP NEW PC AND PS 


JMP BTSTADR(RI) .‘JUMP TO TEST 
; CHANuE THE RH/RM UNIBUS ADDRESS USED BY THE PROGRAM 


03 003262 104401 001207 


CHANGE: TST 
BEQ 
CLR 

1$: TYPE 

MOV 
TYPOC 
TYPE 


CHGADR 

35 

CHGADR 

.ADDRIS 

SRMADR.-(SP) 

.5CRLF 


CHANGE THE ADDRESS ? 

BR IF NOT 

CLEAR THE INDICATOR 

TYPE OUT WHAT THE PRESENT ADDRESS IS 

PUT THE ADDRESS ON THE STACK 

TYPE THE ACTUAL ADDRESS 

CR-LF 



B 4 
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104 

003266 

104401 

072625 



TYPE 

,NTRH 

ASK FOR NEW ADDRESS 


105 

003272 

104412 




RDOCT 




106 

003274 

005716 




TST 

(SP) 

0 OR 'CR* ENTERED ? 


107 

003276 

001402 




BEQ 

2$ 

BR IF EITHER ENTERED (NO ADDRESS 

CHANGE) 

108 

003300 

011637 

001304 



NOV 

(SP).SRNADR 

NEW HH/RM ADDRESS 


109 

003304 

005726 


2S: 

TST 

(SP)* 

CORRECT THE STACK POINTER 


110 

003306 

012737 

003326 

000004 3S: 

NOV 

#4S.B#4 

LOAD TRAP ADDRESS 


111 

003314 

013700 

001304 



NOV 

SRNADR.RO 

GET RH/RM ADDRESS 


112 

003320 

005760 

000002 



TST 

RNWC(RO) 

RESPONDS AT THAT ADDRESS ? 


113 

003324 

000404 




BR 

5$ 

BR IF YES 


114 

003326 



4$: 






003326 

104056 




ENT 

56 



115 

003330 

062706 

000004 



ADD 

#4 .SP 

RESET THE STACK POINTER 


116 

003334 

000745 




BR 

IS 

GET ADDRESS AGAIN 


117 

003336 

012737 

000006 

000004 5$: 

NOV 

#6.a#4 

RESTORE THE VECTOR 


118 

119 

003344 

000207 




RTS 

PC 

RETURN 


132 

133 

003346 

013700 

001304 

TST1AA: 

NOV 

SRNADR.RO 

.‘RESTORE RO AFTER END OF PASS 


134 

003352 

012746 

000240 



NOV 

#PR5,-(SP) 

;PUT NEW PS ON STACK 



003356 

012746 

003364 



NOV 

#64$. -(SP) 

.‘PUT NEW PC ON STACK 



003362 

000002 




RTI 


;POP NEW PC AND PS 



003364 



64$: 





135 










136 





;***** 










•TEST 

1 

NEUTRAL ACCESS TEST 







•VERIFY THAT 

THE DRIVE IS ACCESSIBLE TO BOTH PORTS 







• A. 

SELECT 

DRIVE, VERIFY THAT THE DRIVE IS PRESENT. THAT THE 







* 

DRIVE 

IS A DUAL PORT RM80. THAT THE DRIVE IS ONLINE (RMDS HAS 






* 

•MOL*. 

PGM , ’DPR*, t 'DRY* BITS SET). AND THE THE DRIVE 

SERIAL 






* 

NUMBER READ THROUGH BOTH PORTS IS THE SAME. 







• B. 

* 

THE TEST IS REPEATED THROUGH BOTH PORTS. 



003364 

003364 

005737 

001300 

1 

rSTI : 

TST 

KYBCTL 

PERFORMING ONLY SINGLE TEST ? 



003370 

001406 




BEQ 

2$ 

BR IF NOT 



003372 

100002 

000137 




BPL 

IS 

BR IF JUST ENTERED TEST 



003374 

003062 



JMP 

EXEC 

RETURN t GET NEXT TEST NUMBER 



003400 

012737 

17777? 

001300 IS: 

NOV 

#-1 .KYBCTL 

SET SINGLE TEST INDICATOR 



003406 

012737 

003422 

001106 2S: 

NOV 

#TEST1 .SLPADR 

SETUP SCOPE LOOP ADDRESS 



003414 

012737 

003422 

001110 


NOV 

fTESTl SLPERR 

SETUP ERROR LOOP ADDRESS 



003422 



TEST1 : 






003422 

112737 

000001 

001102 


MOVB 

fl.STSTNN 

MOVE #1 TO TEST NUMBER 



003430 

012706 

001100 

001176 


NOV 

fSTACK.SP 

LOAD THE STACK POINTER 


137 

138 

139 

140 

141 
149 

003434 

012737 

000001 


NOV 

#1, STINES 

;D0 1 ITERATION 


003442 

012760 

000040 

000010 


NOV 

#CLR,RNCS2(R0) 

INITIALIZE THE NASSBUS 






■VERIFY 

THAT DRIVE IS PRESENT THROUGH PORTS A t B 


003450 

113760 

001224 

000010 


MOVB 

PORTA. RNCS2(R0) 

.‘SELECT PORT A 



003456 

013737 

001224 

001240 


NOV 

PORTA. PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


003464 

005760 

000012 



TST 

RNDS(RO) 

;SEE IF DRIVE (PORT A) PRESENT 



SE9 0040 


! 


SEO 0041 
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C 4 


003470 

003474 

003502 

003510 

003514 

003520 

003526 

003534 

003542 

003544 

003552 

003560 

003566 

003570 

003574 

003576 

003602 

003604 

003612 

003620 

003626 

003632 

003636 

003644 

003652 

003656 

003662 

003670 

003676 

003704 

003706 

003714 

003722 

003730 

003732 

003736 

003740 

003744 

003746 

150 

151 

152 

156 003754 
003762 
003770 
003774 
0040 02 
004010 
004014 
004022 
004030 
004032 
004034 
004040 
004042 
004050 
004056 


005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104037 

005137 

000240 

005737 

001403 

012760 

113760 

013737 

005760 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104037 

005137 

000240 

005737 

001403 

012760 


113760 

013737 

005037 

016037 

012737 

060037 

012737 

023737 

001403 

104001 

005137 

000240 

113760 

013737 

005037 


001250 

000010 

000010 

001122 

001124 

001126 

167777 

001124 

001126 

010000 

001174 

001250 

001250 

000040 

001226 

001226 

000012 

001250 

000010 

000010 

001122 

001124 

001126 

167777 

001124 

001126 

010000 

001174 

001250 

001250 

000040 


001224 

001224 

001250 

000026 

000026 

001122 

024026 

001124 


001250 

001226 

m 


001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


000010 

000010 

001240 


001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


000010 


000010 

001240 

001126 

001122 

001124 

001126 


000010 

001240 


64$: 


66 $: 


CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

TST 

BEQ 

MOV 

Move 

MOV 

TST 

CLR 

MOV 

mov 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

TST 

BEQ 

NOV 


CKERR ; CLEAR THE ’CHECK ERROR’ INDICATOR 

RMCS2(R0) .SSDDAT ;GET CONTENTS OF RMCS2 
#RNCS2,S8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.MOVE REGISTER CONTENTS TO ’STMPO’ 
.-SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
.-COPY ’BAD DATA’ 

.-CLEAR THE MASKED BITS 
; 'OR* WITH GOOD DATA FOR TYPEOUT 


R0.S8DADR 
SGDDAT 
S8DDAT.STMP0 
JTCNED. STMPO 
SGDDAT. $TMPO 
64$ 

S8DDAT.$TMP4 
*NED t $TNP4 
STNP4. SGDDAT 
37 

CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR ;UAS ’NED’ SET ? 

.♦10 ;BR IF NOT 

#CLR.RMCS2(R0) .’ISSUE MASSBUS INIT TO CLEAR 'NED' 

P0RT8.RMCS2(R0) ; SELECT PORT B 

PORTS, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) ;SEE IF DRIVE (PORT B) PRESENT 

CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RNCS2 (RO).SBDDAT ;GET CONTENTS OF RMCS2 
#RMCS2.$6DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
,-UHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO ’STMPO* 

.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
.-COPY 'BAD DATA’ 

.-CLEAR THE MASKED BITS 
.-’OR* WITH GOOD DATA FOR TYPEOUT 


RO.SBDADR 
SGDDAT 
S8DDAT. STMPO 
#*CNED. STMPO 
SGDDAT. STMPO 
66S 

S8DDAT.STMP4 
#NED,$TNP4 
STMP4, SGDDAT 
37 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR 

.♦10 

#CLR,RMCS2(R0) 


.-WAS 'NED' SET ? 

;BR iF 

; ISSUE MASSBUS INIT TO CLEAR 


•NED’ 


.-CONFIRM THAT DRIVE IS AN RH80 AND IS DUAL PORi 


68 $: 


M0V8 

MOV 

CLR 

NOV 

NOV 

ADD 

MOV 

CMP 

BEQ 

EMT 

COM 

NOP 

M0V8 

NOV 

CLR 


PORTA.RMCS2<R0) ;SELECT PORT A 

PORTA. PTNBR ;NOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RMDT(RO) .SBDDAT ;GET CONTENTS OF RMDT 
fRMDT.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR .‘ADD RH/RM BASE ADDRESS 

#0$4026, SGDDAT ;WHAT REGISTER SHOULD BE 
;I5 THE REGISTER OK ? 

;BR IF OK 


irvi.'TVbVf ■ 

SGDDAT. SBDDAT 
68$ 

1 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


PORTS, RMCS2(R0) ;SELECT PORT B 

PORTS, PTNBR ;HOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 
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004062 

016037 

000026 

001126 


MOV 

004070 

012737 

OOOC26 

001122 


MOV 

004076 

060037 

001122 



ADD 

004102 

012737 

024026 

001124 


MOV 

004110 

023737 

001124 

001126 


CM 0 

004116 

001403 




BEQ 

004120 

104001 




EMT 

004122 

005137 

001250 



COM 

004126 

000240 



70S: 

NOP 

157 






158 




; VERIFY 

THROUGH 

159 

164 004130 

113760 

001224 

000010 


MOVB 

004136 

013737 

001224 

001240 


MOV 

004144 

005037 

001250 



CLR 

004150 

016037 

000012 

001126 


MOV 

004156 

012737 

000012 

001122 


MOV 

004164 

060037 

oor .22 

001000 



ADD 

004170 

012737 

001124 


NOV 

004176 

013737 

001126 

001164 


NOV 

004204 

042737 

176777 

001164 


BIC 

004212 

023737 

001124 

001164 


CMP 

004220 

001414 




BEQ 

004222 

013737 

001126 

001174 


MOV 

004230 

042737 

001000 

001174 


BIC 

004236 

053737 

001174 

001124 


BIS 

004244 

104045 




EMT 

004246 

005137 

001250 



COM 

004252 

000240 



72S: 

NOP 

004254 

005037 

001250 



CLR 

004260 

016037 

000012 

001126 


NOV 

004266 

012737 

000012 

001122 


MOV 

004274 

060037 

001122 



ADD 

004300 

012737 

010600 

001124 


MOV 

004306 

013737 

001126 

001164 


NOV 

004314 

042737 

167177 

001164 


BIC 

004322 

023737 

001124 

001164 


CMP 

004330 

001414 




BEQ 

004332 

013737 

001126 

001174 


NOV 

004340 

042737 

010600 

001174 


BIC 

004346 

053737 

001174 

001124 


BIS 

004354 

004356 

104002 

005137 

001250 



EMT 

COM 

004362 

000240 

113760 



74$: 

NOP 

004364 

001226 

000010 


N0V8 

004372 

013737 

001226 

001240 


MOV 

004400 

005037 

001250 



CLR 

004404 

016037 

000012 

001126 


MOV 

004412 

012737 

000012 

001122 


MOV 

004420 

060037 

001122 



ADD 

004424 

012737 

001000 

001124 


NOV 

004432 

Cl 3737 

001126 

001164 


NOV 

004440 

042737 

176777 

001164 


BIC 

004446 

023737 

001124 

00116* 


CMP 

004454 

001414 




BEQ 

004456 

013737 

001126 

001174 


NOV 

004464 

042737 

001000 

001174 


BIC 
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sea 004: 


RMDT(RO), SBDDAT .GET CONTENTS OF RNDT 
IRNDT.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 


RO.SBDADR 
#024026.$GDDAT 
S6DDAT. SBDDAT 
70$ 

1 

CKERR 


;ADD RH/RM BASE ADDRESS 
;UHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 

;BR IF OK 

;SET THE REGISTER COMPARE ERROR INDICATOR 


BOTH PORTS THAT THE DRIVE IS ON LINE AND IN NEUTRAL 
PORTA, RNCS2(R0) ;SELECT PORT A 

PORTA. PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RMDS(RO) .SBDDAT ;GET CONTFNTS OF RMDS 

#RMDS.SBDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 

RO.SBDADR .‘ADD RH/RM BASE ADDRESS 

#PGM.$GDDAT ;WHAT REGISTER SHOULD BE 

S8DDAT.STMP0 .-MOVE REGISTER CONTENTS TO ’$TMPO’ 

# A CPGN, STMPO .-SAVE SPECIFIED BITS 

SGDDAT.STMPO .-COMPARE THE BITS 

72$ ;BR IF OK 

$6DDAT.$TMP4 .-COPY 'BAD DATA' 

#PGM.STNP4 .‘CLEAR THE MASKED BITS 

STMP4, SGDDAT .-’OR’ WITH GOOD DATA FOR TYPEOUT 

45 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RMDS(RO) ,$6DDAT .-GET CONTENTS OF RMDS 

#RNDS.$8DADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 

RO.SBDADR .‘ADD RH/RM BASE ADDRESS 

#MOL ! DPR ! DRY .SGDDAT ,-UHAT REGISTER SHOULD BE 

SBDDAT. STHPO .-MOVE REGISTER CONTENTS TO ’STMPO* 

# A C1060O.STNP0 .-SAVE SPECIFIED BITS 

SGDDAT.STMPO .‘COMPARE THE BITS 

74$ *BR IF OK 

SBDDAT. STMP4 -COPY ’BAD DATA* 

#10600. ST MP4 .-CLEAR THE MASKED BITS 

STMP4. SGDDAT ;'0R' WITH GOOD DATA FOR TYPEOUT 

2 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


PORTS, RMCS2(R0) ;SELECT PORT B 

PORTS, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS (RO) .SBDDAT ;6ET CONTENTS OF RN£S 

#RMDS,$6DADR ;FOAm RE6ISTER ADDRESS OF ERROR MESSAGE 

RO.SBDADR :ADD RH/RM BASE ADDRESS 

#PGM, SGDDAT ;WHAT REGISTER SHOULD BE 

SBDDAT, STMPO .-MOVE RE6ISTER CONTENTS TO ’STMPO’ 

# A CP6M, STMPO .-SAVE SPECIFIED BITS 

SGDDAT.STMPO .COMPARE THE BITS 

76$ ;8R IF OK 

SBDDAT, STMP4 .-COPY 'BAD DATA* 

#PGM,STMP4 .-CLEAR THE MASKED BITS 
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$TMP4.$GDDAT 
45 

CKERR 


SEO 0043 



004472 

053737 

001174 

001124 


BIS 


004500 

104045 




EMT 


004502 

005137 

001250 



COM 


004506 

000240 



76$: 

NOP 


004510 

005037 

001250 



CLR 


004514 

016037 

000012 

001126 


NOV 


004522 

012737 

000012 

001122 


MOV 


004530 

060037 

001122 



ADD 


004534 

012737 

010600 

001124 


MOV 


004542 

013737 

001126 

001164 


MOV 


004550 

042737 

167177 

001164 


8IC 


004556 

023737 

001124 

001164 


CMP 


004564 

001414 




8EQ 


004566 

013737 

001126 

001174 


MOV 


004574 

042737 

010600 

001174 


81 C 


004602 

053737 

001174 

001124 


81 S 


004610 

104002 




EMT 


004612 

005137 

001250 



COM 


004616 

000240 



78$: 

NOP 

165 







166 





; VERIFY 

THAT 1 

167 







168 

004620 

113760 

001224 

000010 


MOV? 

169 

004626 

016037 

000030 

001124 


MOV 

170 

004634 

113760 

001226 

000010 


H0V8 

171 

004642 

01C037 

000030 

001126 


MOV 

172 

004650 

023737 

001124 

001126 


CMP 

173 

004656 

001406 




BEQ 

174 

004660 

104003 




EMT 

175 

004662 

032777 

100000 

174250 


BIT 

176 

004670 

001001 




BNE 

177 

004672 

000000 




HALT 

178 

004674 

000004 



1$: 

SCOPE 


•OR* WITH GOOD DATA FOR TYPE0U1 

SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

FMDS(RO) .SBDDAT ;G£T CONTENTS OF RHDS 
#RMDS,$8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR ;ADD RH/RM BASE ADDRESS 

#MOL ! DPR ! DRV .SGDDAT ;WHAT REGISTER SHOULD BE 
SBDDAT.SYMPO .-MOVE REGISTER CONTENTS TO 'STMPO' 

#• Cl 0600, STMPO ;SAVE SPECIFIED BITS 
; COMPARE THE BITS 

•oo it rue 

•COPY 'BAD DATA' 

; CLEAR THE MASKED BITS 
; 'OR' WITH GOOD DATA FOR TYPEOUT 


SGDDAT, STMPO 
78$ 

SBDDAT, *TMP4 
#10600. STMP4 
STNP4, SGDDAT 

2 

CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


.•VERIFY THAT DRIVE SERIAL NUMBER SEEN THROUGH BOTH PORTS IS THE SAME 


PORTA, RMCS2CR0) 
RMSN(RO) ,$GDDAT 
PORTS, RMCS2(R0) 
RMSN(RO) ,$BDDAT 
$GDDAT,S6DDAT 
1 $ 

3 

#SW15.8SWR 

1 $ 


179 

197 

198 


.•SELECT PORT A 

; STORE THE PORT A SERIAL NUMBER 
.•SELECT PORT B 

.•STORE THE PORT B SERIAL NUMBER 
;ARE THEY THE SAME ? 

;8R IF THEY ARE 

.-HALT ON ERROR ? 

;8R IF SET - PROGRAM HAS ALREADY HALTED 
.•HALT. POSSIBLE CABLE CONNECTION PROBLEM 
.-LOOP ? 


TEST 2 


PORT 'A' SEIZE/TIMEOUT TEST 


($4676 005737 001300 
004702 001406 
004704 100002 


VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 
IT CAN BE RELEASED BY THE ONE SECOND TIMER. 

A. WRITE O'S INTO RMDA THROUGH PORT 'A'; VERIFY THAT THE DRIVE 
HAS BEEN SEIZED. 

B. READ EACH DRIVE REGISTER, EXCEPT RMCS1 , THROUGH PORT 'B'; 

VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 
VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 
NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS > 500 MS. 

**************************************************************t 

tST2: 

TST KYBCTL .-PERFORMING ONLY SINGLE TEST ? 

BED 2$ ;8R IF NOT 

BPL 1$ ;8R IF JUST ENTERED TEST 



SEQ C044 


CZRNHAO 

T2 


199 

267 


RHbu tUAu PORI F . 1 MACRO VIK.00 15-JAN-82 07:09:22 PAGE 9-7 
PORT 'A* SEIZE/TINEOUT TEST 


004706 

004712 

004720 

004726 

004734 

004734 

004742 

004746 

004754 

004762 

004766 

004772 


004776 

005002 


005010 

005016 

005024 

005030 

005036 

005044 

005052 

005060 

005064 

005072 

005076 

005104 

005106 

005110 

005114 

005114 

005122 

005130 

005136 

005144 

005152 

005160 

005164 

005172 

005200 

005206 

005210 

005212 


000137 

012737 

012737 

012737 

112737 

012706 

012737 

012737 

005037 

005037 

005037 


005037 

012737 


113760 

013737 

005060 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 

113760 

013737 

016037 

042737 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104005 

000240 




001100 


001262 

001264 

001266 


001256 

003720 


001224 

001224 

000006 

001226 

001226 

001226 

000012 

001122 

000012 

0C1124 

001124 


006242 

001224 

001224 

000012 

020001 

011600 

001124 

001166 

001126 

001166 

001124 



JMP 

EXEC 

001300 1$: 

MOV 

#-1 .KYBCTL 

001106 2$: 

MOV 

#TEST2,$LPADR 

001110 

NOV 

#TEST2,$LPERR 

TE5T2: 


001102 

MOVB 

#2.$T5TNM 


NOV 

fSTACK.SP 

001176 

MOV 

#2..$TIMES 

177776 

NOV 

#<5*32.>,8#PS 


CLR 

TINEA 


CLR 

TIMEAP .-CLEAR 


CLR 

TIMEAM .-CLEAR 


005214 113760 001226 
005222 013737 001226 
005230 016046 000046 
005734 016046 000044 
005740 016046 000030 


; RE TURN t GET NEXT TEST NUMBER 
;SET SIN6LE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.-SETUP ERROR LOOP ADDRESS 

.-MOVE 92 TO TEST NUMBER 
.-LOAD THE STACK POINTER 
;;D0 2. ITERATIONS 

.-SET PRIORITY TO 5 IN CASE LOOPING 
; CLEAR TIMEOUT VALUE FOR PORT A 


001260 


000010 

001242 

000010 

001240 

001244 

001126 

001122 

001126 


000010 

001240 

001126 

001126 

001124 

001166 

001164 

001164 

001164 


000010 

001240 


.•START THE TIMER 

CLR 
MOV 


TIME 

#2000.. WATCH 


.•CLEAR THE ELAPSED TIME COUNTER 
;SET WATCH TO 2000. MS 


; SEIZE THE DRIVE THROUGH PORT A 


64$: 


65$: 


M0V8 

MOV 

CLR 

MOVB 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEQ 

EMT 

JMP 

MOVB 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEQ 

EMT 

NOP 


PORTA, RMCS2 (RO) ; SELECT PORT A 
PORTA, SEIZPT ; STORE SEIZING PORT’S ADDRESS 
RMDA(RO) .WRITE RMDA 

PORTS, RMCS2(R0) ; SELECT PORT B 

PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPECUT 
PORTS, OPPRT .-’OPPOSITE’ PORT ADDRESS 

;SEE IF DRIVE SEIZED BY PORT A 

RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 


RMDS(RO).$BDDAT 

R0.S8DADR 

#RMDS,$BDADR 

$GDDAT 

$GDDAT,$8DDAT 

64$ 

4 

5$ 


BYPASS REST OF THE SUBTEST 


PORTA, RMCS2(R0) ;SELECT PORT A 

PORTA.PTNBR ;NOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS (RO) ,$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
fOMiPIP.ieODAT .-CLEAR DONT CARE BITS 

#NOL!PGN!DPR!DRY,$GDDAT .-EXPECTED STATUS 
SGDDAT.STMPI ;USE GOOD DATA AS A MASK 

; COMPLEMENT THE EXPECTED STATUS 

.-SAVE THE ACTUAL STATUS 
; CLEAR UNWANTED BITS 
;ARE THE EXPECTED STATUS BITS SET ? 

;BR IF THEY ARE 


STMP1 
$BDDAT.$TMPO 
ITMP1 ,$TMPO 
SGDDAT.STMPO 
65$ 

5 


.•READ THE DRIVE REGISTERS THROUGH PORT B AND STORE THEM ON THE STACK 
MOVB PORT8.RMCS2(R0) ; SELECT PORT B 

MOV PORTB.PTNBR :N0vfc PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV RMEC2(R0),-(S£) ;STORE REGISTER RMEC2. PORT B, FOR CHECK 
MOV RNECKRO).-(SP) ; STORE REGISTER RMEC1 , PORT B. FOR CHECK 
MOV RMSN(RO) ,-iSP) .-STORE REGISTER RMSN, PORT B, FOR CHECK 
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G A 


SEO 004b 


005244 

005250 

005254 

005260 

005264 

005270 

005274 

005300 


005304 

005310 

005312 

005316 

005320 

005322 

005326 

005334 

005342 

005346 

005350 

005354 


016046 

016046 

016046 

016046 

016046 

016046 

016046 

016046 


005760 

001006 

005737 

001372 

104036 

000137 

012737 

013737 

004537 

001262 

012637 

012637 


000034 

000032 

000042 

000020 

000026 

000006 

000024 

000014 


000012 

001260 


005726 

000340 

001256 

066254 

001264 

001266 


005360 023727 001256 
005366 103001 
005370 104055 


005372 


005400 

005404 

005412 

005416 

005424 

005432 

005440 

005446 

005454 

005462 

005470 

005476 

005504 

005512 

005520 

005526 

005530 

005534 

005536 

005540 

005544 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001037 

104046 

000137 

013737 


MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 


RMDC(RO) ,- 

RMOf (R0>,- 

RMER2(R0), 

RMLA(RG),- 

RMDT(RO).- 

RMDA(RO) 

RMMR1CR0). 

RMERKRO), 


(SP) 

(SP) 

-(SP) 

(SP) 

(SP) 

(SP) 

-(SP) 

-(SP) 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


REGISTER 

REGISTER 

REGISTER 

REGISTER 

REGISTER 

REGISTER 

REGISTER 

REGISTER 


RMDC, PORT B, 
RMOf, PORT 8, 
RMER2. PORT 8, 
RMLA, PORT 8, 
RMOT, PORT 8, 

rmda, port b, 

RMMRi , PORT 8 
RMER1. PORT 8 


FOR CHECK 
FOR CHECK 
, FOR CHECK 
FOR CHECK 
FOR CHECK 
FOR CHECK 
, FOR CHECK 
. FOR CHECK 


177776 

001262 


.-WAIT FOR PORT A TO TIMEOUT 

IS: TST RMDS(RO) 

BNE 2S 

TST WATCH 

BNE IS 

EMT 35 

JMP 41 

21: MOV #<7* 32.>.8#.T 

MOV TIME, TIME A 

JSR R5, TOLER 

.WORD TIMEA 

MOV (SP)+, TIMEAP 

MOV (SP)+,TIMEAM 


.-WAIT FOR THE DRIVE TO TIMEOUT 
;BR WHEN TIMEOUT OCCURS 
.•CHECK WATCH 
;BR IF NOT ZERO 

.•BYPASS TIMEOUT TIME CHECK 
;SCT PRIORITY TO 7 TO STOP CLOCK 
.•SAVE THE ELAPSED TIME FOR PORT A 
.•CALCULATE THE TOLERANCE 
.•TIMEOUT VALUE FOR PORT A 
;*25X TOLERANCE 
.-25* TOLERANCE 


.•VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST 500 MS 


000764 


CMP 

BHIS 

EMT 


TIME. #500. 
3$ 

55 


;WAS MEASURED TIME AT LEAST 500 MS? 
;8R IF IT WAS 


000240 

177776 

3$: 

MOV 



.•VERIFY 

THAT 

001254 



CLR 

000012 

001122 


MOV 

001122 



ADD 

011600 

001124 


MOV 

001224 

000010 


MOV S 

000012 

001170 


MOV 

024001 

001170 


BIC 

001170 

001164 


MOV 

100100 

001164 


BIC 

001226 

000010 


MOVB 

000012 

001172 


MOV 

024001 

001172 


BIC 

001172 

001166 


MOV 

100100 

001166 


BIC 

001164 

001166 


CMP 




BNE 

001164 



TST 




BNE 




EMT 

005724 



JMP 

001170 

001126 

66$: 

MOV 


.•VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT A TIMED OUT 
#<5*32.>,8#PS .-RESTORE PRIORITY TO 5 


RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

fRMDS.SBDADR .'FORM THE ADDRESS OF RMDS FOR TYPEOUT 

R0.S3DADR .-ADD THE I/O BASE ADDRESS 

#MOL ! PGM ! DPR ! DRY , SGDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2(R0) .‘SELECT PORT A. 

RMDS(RO) .STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
fPJPJWRL !0M,$TMP2 .-CLEAR DONT CARES 

STMP2.STMP0 .-COPY IT INTO '$TMPO' 

#ATA! VV.STMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTS, RMCS2(R0) .SELECT PORT 8. 

RHDS(60),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 

#PJP!WRl!0M.$TMP$ .-CLEAR DONT CARES 

STMP3.STMP1 .-COPY IT INTO *STHPr 

#ATA! VV.STMP1 .-CLEAR PORT DEPENDENT BITS FROM THE COPY 

THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

;BR IF NOT 

.-REGISTERS ARE THE SAME: ARE THEY ZERO ? 

;BR IF NOT 


STMPO.STMPI 

66 $ 

$TMPO 

68$ 

46 

70$ 

$TMP2,$BDDAT 


.-BYPASS THE REST OF THE CHECKS 

.-SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
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005552 

005560 

005566 

005572 

005574 

005602 

005610 

005616 

005622 

005624 

005632 

005634 

005642 

005650 

005656 

005664 

0056S6 

005670 

005676 

005704 

005712 

005720 

005722 

005724 


005726 

005734 

005740 

005746 

005752 

005754 

005756 

005762 

005770 

005774 

005776 


006012 


013737 

0057$ 

001414 

013737 

013737 

0057$ 

001004 

012737 

104022 

01 $37 

m 

001401 

104007 

013737 

013737 

m 

001401 

104007 

000240 


013737 

010037 

062737 

012637 

001401 

104006 

01003? 

062737 


1401 
104006 
010037 



001226 

001240 


NOV 

001226 

001164 

000010 


M0V8 

TST 



BEQ 

001224 

001240 


MOV 

001172 

001126 


MOV 

001224 

000010 


A0V8 

001166 



TST 




BNE 

177777 

001254 

67$: 

MOV 




EAT 

001170 

001126 

68$: 

MOV 

001224 

001240 


MOV 

100100 

001126 


BIC 

001124 

001126 


CAP 




BEQ 




EAT 

001172 

001126 

69$: 

MOV 

001226 

001240 


MOV 

100100 

001126 


BIC 

001124 

001126 


CAP 




BEO 




EAT 



70S: 

NOP 


PORTS, PTNBR 
PORTS. RACS2<R0) 
STAPO 
67$ 

PORTA, PTNBR 
STAP3.SBDDAT 
PORTA, RAC S2(R0) 
$TAP1 
68 $ 

#-1 .RELERR 

22 

STMP2.SBDDAT 
PORTA. PTNBR 
#ATA! VV,$80DAT 
SGDDAT.SBDDAT 
69$ 

7 

$TAP3.$8DDAT 
P0RTB.PTN8R 
RATA! W.SBDDAT 
SGDDAT.SBDDAT 
70$ 

7 


.•CHECK THE REGISTERS STORED THRC 
;THE REGISTERS ARE STORED ON THf 


001226 001240 4$: 
001122 

000014 001122 
001126 


001122 

000024 001122 
001126 


001122 

000006 001122 
001126 


001122 

000026 001122 
001126 


8o0020 001122 
001126 


„ 001122 
37 000042 001122 
12637 001126 


it 

12637 

1401 


P0RTB.PTN8R 

RO.SBDADR 

RRAERI.SBDADR 

(SP)+.$8DDAT 

.♦4 

6 

RO.SBDADR 
RRMMR1 .S8DADR 
(SP)+, SBDDAT 
.♦4 
6 

RO.SBDADR 
fRMDA.SBDADR 
(SP) ♦.SBDDAT 
.♦4 
6 

RO.SBDADR 
RRADT.SBDADR 
(SP>+, SBDDAT 
.♦4 
6 

RO.SBDADR 
RRMLA.SBDADR 
CSP)+. SBDDAT 
.♦4 
6 

RO.SBDADR 
#RMER2.$BDADR 
(SP) ♦.SBDDAT 


SEQ 0o46 


SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET ‘RELEASE ERROR* INDICATOR 

LOOK FOR BIT FAILURES WHEN RADS READ 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RADS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT 8. 

BR IF OK 


IGH PORT B. ALL REGISTERS SHOULD BE ZERO. 
STACK. 

CHANGE 'PORT NUMBER' TO THE OPPOSITE PORT 
BASE ADDRESS FOR REGISTER RMER1 
ADDRESS OF RMER1 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMER1 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMMR1 
ADDRESS OF RMMR1 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMMR1 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RADA 
ADDRESS OF RADA FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RADA 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RADT 
ADDRESS OF RADT FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RADT 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMLA 
ADDRESS OF RMLA FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMLA 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RAER2 
ADDRESS OF RMER2 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMER2 


! 



047 
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006104 

006106 

006110 

006114 

006122 

006126 

006130 

006132 

006136 

006144 

006150 

006152 

006154 

006160 

006166 

006172 

006174 

006176 

006202 

006210 

006214 

006216 

006220 

006224 

006232 

006236 

006240 

006242 


001401 

10400£ 

06^7 

012637 

001401 

104006 

010037 

062737 

012637 

001401 

104006 

010037 

062737 

012637 

001401 

104006 

010037 

062737 

012637 

001401 

104006 

010037 

062737 

012637 

001401 

104006 

000004 


001122 

000032 

001126 


0011g2 

0000^4 

001126 


001122 

000030 

001126 


001122 

000044 

001126 


001122 

000C46 

001126 


001122 


001122 


001122 


001122 


001122 


BEQ 

.*4 

EMT 

6 

NOV 

R0.S8DADR 

ADD 

fRMOF.SBDADR 

MOV 

(SP) *.SBDDAT 

BEQ 

.♦4 

EMT 

6 

MOV 

RO.SBDADR 

ADD 

ORMDC.SBDADR 

NOV 

(SP)+,SBDDAT 

BEQ 

.♦4 

EMT 

6 

MOV 

RO.SBDADR 

ADD 

#RMSN.SBDADR 

MOV 

(SPJ+.SBDDAT 

BEQ 

.♦4 

EMT 

6 

MOV 

RO.SBDADR 

ADD 

#RMEC1 .S8DADR 

MOV 

(SPH.SBDDAT 

BEQ 

.♦4 

EMT 

6 

MOV 

RO.SBDADR 

ADD 

0RMEC2.S8DADR 

NOV 

(SP) ♦.SBDDAT 

BEQ 

.♦4 

EMT 

SCOPE 

6 


CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMOF 
ADDRESS OF RMOF FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMOF 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMDC 
ADDRESS OF RMDC FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMDC 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMSN 
ADDRESS OF RMSN FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMSN 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMEC1 
ADDRESS OF RMEC1 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMEC1 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMEC2 
ADDRESS OF RMEC2 FOR TYPEOUT 
CHECK THE STORED CONTENTS 05 RMEC2 
CONTENTS ZERO ? 

LOOP ? 


006244 

006244 005737 001300 
006250 001406 
006252 100002 


•TEST 3 PORT 'B' SEIZE/TIMEOUf TEST 

* 

•VERIFY THAT THE DRIVE CAN BE SEIZED BY WRITING A REMOTE REGISTER AND THAT 

* IT CAN BE RELEASED BY THE ONE SECOND TIMER. 

* 

* A. WRITE O'S INTO RMDA THROUGH PORT , B*; VERIFY THAT THE DRIVE 

* HAS BEEN SEIZED. 

* 

* B. READ EACH DRIVE REGISTER. EXCEPT RMCS1 , THROUGH PORT 'A'; 

* VERIFY THAT O'S ARE READ FROM EACH REGISTER. 

* 

* C. WAIT FOR THE PORT TIMEOUT TO RELEASE THE DRIVE. 

* MEASURE THE DURATION OF THE TIMEOUT ONE SHOT AND SAVE THE 

* VALUE FOR LATER USE. VERIFY THAT TIMEOUT RETURNED THE DRIVE TO 

* NEUTRAL. ALSO VERIFY THAT THE DURATION OF THE ONE SHOT IS >500 MS. 

* 

;**************»*«********************************************** 

TST3: 


006254 000137 003062 
006260 012737 177777 001300 
006266 012737 006302 001106 
006274 012737 006302 001110 
006302 


TEST3: 


TST 

KYBCTL 

.•PERFORMING ONLY SINGLE TEST ? 

BEQ 

2S 

;BR IF NOT 

BPL 

IS 

;BR IF JUST ENTERED TEST 

JMP 

EXEC 

.•RETURN ft GET NEXT TEST NUMBER 

MOV 

0-1 .KYBCTL 

.-SET SINGLE TEST INDICATOR 

MOV 

0TEST3.SLPADR 

.•SETUP SCOPE LOOP ADDRESS 

MOV 

0TEST3.SLPERR 

.•SETUP ERROR LOOP ADDRESS 
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SEQ 0048 


006302 

006310 

006314 

288 

289 006322 
006330 
006334 
006340 


006344 

006350 


006356 

006364 

006372 

006376 

006404 

006412 

006420 

006426 

006432 

006440 

006444 

006452 

006454 

006456 

006462 

006462 

006470 

006476 

006504 

006512 

006520 

006526 

006532 

006540 

006546 

006554 

006556 

006560 


006562 

006570 

006576 

006602 

006606 

006612 

006616 

006622 

006626 

006632 


112737 000003 001102 
012706 001100 
012737 000002 001176 

012737 000240 177776 
005037 001270 
005037 001272 
005037 001274 


005037 001256 
012737 003720 


113760 

013737 

005060 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 

113760 

013737 

016037 

042737 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104005 

000240 


113760 
013737 
01 6046 
016046 
016046 
016046 
016046 
016046 
016046 
016046 


001226 

001226 

000006 

001224 

001224 

001224 

000012 

001122 

000012 

001124 

001124 


007610 

001226 

001226 

000012 

020001 

011600 

001124 

001166 

001126 

001166 

001124 


001260 


000010 

001242 

000010 

001240 

001244 

001126 

001122 

001126 


000010 

001240 

001126 

001126 

001124 

001166 

001164 

001164 

001164 


001224 000010 
001224 001240 
000046 
000044 
000030 
000034 
000032 
000042 
000020 
000026 


#3.STSTNR 
fSTACK.SP 
#2. .STIMES 


.‘MOVE #3 TO TEST NUMBER 
;10AD THE STACK POINTER 
; ;D0 2. ITERATIONS 


#<5*32.>.a#PS ;SET PRIORITY TO 5 IN CASE LOOPING 
TIMEB .‘CLEAR TIMEOUT VALUE FOR PORT B 

TIMEBP .‘CLEAR UPPER TIMEOUT TOLERANCE 
TIMEBM ; CLEAR LOWER TIMEOUT TOLERANCE 


.‘START THE TIMER 


TIME 

#2000.. WATCH 


.‘CLEAR THE ELAPSED TIME COUNTER 
.-SET WATCH TO 2000. MS 


.‘SEIZE THE DRIVE THROUGH PORT B 


PORTS, RMCS2(R0) .‘SELECT PORT B 
PORTS, SEIZPT .‘STORE SEIZIN6 PORT ‘5 ADDRESS 
RMDA(RO) ; WRITE RMDA 

PORTA, RMCS2CR0) ;SELECT PORT A 

PORTA, PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTA, OPPRT 


’OPPOSITE* PORT ADDRESS 


RMDS(RO) .SBDDAT ;SEE IF DRIVE SEIZED BY PORT B 


R0.S8DADR 

#RMDS,$8DADR 

SGDDAT 

SGDDAT, SBDDAT 

64S 

4 

5$ 


;RH/RM BASE ADDRESS 
.•GENERATE BAD REGISTER ADDRESS 
;REGjS t ER SHOULD BE ZERO 
;IS THE REGISTER ZERO 
;B.v IF IT IS 

.•BYPASS REST OF THE SUBTEST 


M0V8 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEO 

EMT 

NOP 


P0RTB.RMCS2(R0) ;SELECT PORT B 

PORTB, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO). SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
fOMIPIP, SBDDAT .‘CLEAR DONT CARE BITS 

#MOL! PGM! DPR! DRY, SGDDAT .EXPECTED STATUS 
SGDDAT, STMP1 .‘USE GOOD DATA AS A MASK 


STMP1 

S6DDAT.STMP0 

STMP1.STMP0 

GoDDAT.STMPO 

65S 

5 


COMPLEMENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET ? 

BR IF THEY ARE 


.•READ THE DRIVE REGISTERS THROUGH PORT A AND STORE THEM ON THE STACK 


M0V8 PORTA, RHCS2(R0) ;SELECT PORT A 
MOV PORTA.PTNBR ;MOVE PORT ADDRESS 
MOV RMEC2CR0) ,-(S£) ; STORE REGISTER 
MOV RMEC1 (RO) ,-<SP) .‘STORE REGISTER 
MOV RMSN(RO),-<SP) .‘STORE REGISTER 
MOV RMDC(RO) ,-(SP) .‘STORE REGISTER 
MOV RMOF(RO).-(SP) .‘STORE REGISTER 
MOV RM£R2(R05.-(SP) .‘STORE REGISTER 
MOV RMLA(R0),-(SP) .‘STORE REGISTER 
MOV RMDT(RO) ,-(SP) .‘STORE REGISTER 


TO LOCATION FOR TYPEOUT 
RMEC2. PORT A, FOR CHECK 
RMEC1, PORT A, FOR CHECK 
RMSN, PORT A, FOR CHECK 
RMDC. PORT A. FOR CHECK 
RMOF. PORT A, FOR CHECK 
RMER2, PORT A, FOR CHECK 
RMLA. PORT A, FOR CHECK 
RMDT, PORT A, FOR CHECK 


J 


SEQ CO 


K 4 
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13 PORT 'S' SEI2E/TIHE0UT TEST 


006636 016046 000006 
006642 016046 000024 
006646 016046 000014 


006652 

006656 

006660 

006664 

006666 

006670 

006674 

006702 

006710 

C06714 

006716 

006722 


006726 

006734 

006736 


MOV RMDA(RO) f -(SP) .’STORE REGISTER RMDA. PORT A, FOR CHECK 

MOV RMMR1(R05.-(SP) .’STORE REGISTER RMNR1, PORT A. FOR CHECK 

MOV RMERKRO).-(SP) .’STORE REGISTER RMER1 , PORT A. FOR CHECK 


005760 

001006 

005737 

001372 

104036 

000137 

012737 

013737 

004537 

001270 

012637 

012637 


023727 

103001 

104055 


006740 012737 


006746 

006752 

006760 

006764 

006772 

007000 

007006 

007014 

007022 

007030 

007036 

007044 

007052 

007060 

007066 

007074 

007076 

007102 

007104 

007106 

007112 

007120 

007126 

007134 

007140 

007142 


000012 

001260 


007274 

000340 

001256 

066254 

001272 

001274 


.-WAIT FOR PORT B TO TIMEOUT 


1 $: 


177776 

001270 


2S: 


TST 

RMDS(RO) 

BNE 

2$ 

TST 

WATCH 

BNE 

1$ 

EMT 

36 

JMP 

4$ 

MOV 

#<7*32.>,a#PS 

MOV 

TIME, TIMES 

JSR 

R5, TOLER 

.WORD 

TIMEB 

MOV 

<SP> +.TIMEBP 

MOV 

<SP)*.TIHEBM 


WAIT FOR THE DRIVE TO TIMEOUT 
BR WHEN TIMEOUT OCCURS 
CHECK WATCH 
BR IF NOT ZERO 

BVPASS TIMEOUT TIME CHECK 
SET PRIORITY TO 7 TO STOP CLOCK 
SAVE THE ELAPSED TIME FOR PORT B 
CALCULATE THE TOLERANCE 
TIMEOUT VALUE FOR PORT B 
♦25X TOLERANCE 
-25 X TOLERANCE 


.•VERIFY THAT THE TIMEOUT ONE-SHOT IS AT LEAST 500 MS 


001256 000764 


CMP 

BHIS 

EMT 


TIME .#500. 

3S 

55 


;UAS MEASURED TIME AT LEAST 500 MS? 
;8R IF IT WAS 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001037 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 


000240 

177776 

3$: 

MOV 



.’VERIFY 

THAT 

001254 



CLR 

000012 

001122 


MOV 

001122 



ADD 

011600 

001124 


NOV 

001224 

000010 


MOVB 

000012 

001170 


MOV 

024001 

001170 


BIC 

001170 

001164 


MOV 

100100 

001164 


BIC 

001226 

000010 


MOVB 

000012 

001172 


MOV 

024001 

001172 


BIC 

001172 

001166 


MOV 

100100 

001166 


BIC 

001164 

001166 


CMP 



BNE 

001164 



TST 




BNE 




EMT 

007272 



JMP 

001170 

001126 

66$: 

MOV 

001226 

001240 


MOV 

001226 

000010 


MOVB 

001164 



TST 




BEQ 

001224 

001240 


MOV 


.•VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AFTER PORT B TIMED OUT 
#<5*32.>,B#PS .-RESTORE PRIORITY TO 5 


RELERR .’CLEAR THE 'RELEASE ERROR ' INDICATOR 

fRMDS.SBDADR .’FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0.J8DADR .’ADD THE I/O BASE ADDRESS 

#MOL i PGM ! DPR ! DRY , SGDDAT .’COMPARISON CONSTANT 

PORTA, RMCS2(R0) .-SELECT PORT A. 

RMDS(R0),$TMP2 ; GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRLiOM,$TMPZ .’CLEAR DONT CARES 

STMP2.STMP0 .’COPY IT INTO '$TMPO' 

#ATA!VV,$TMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORT8,RMCS2<R0> .‘SELECT PORT B. 

RMDS(fi0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#pip*wrl!om.$tmpS ; CLEAR. DONL CARES 


$TMP3.$TMP1 
#ATA! VV.STMP1 
STMPO.STMPI 
66$ 

STMPO 

68S 

46 

70$ 

STMP2.S8DDAT 
PORTB.PTNBR 
PORTS, RMCS2CR0) 
STMPO 

67$ 

PORTA, PTNBR 


.’COPY IT INTO 'STMP1 ' 

; CLEAR PORT DEPENDENT BITS FROM THE COPY 

•IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

‘BR IF NOT 

’REGISTERS ARE THE SAME: ARE THEY ZERO ? 

;BR IF NOT 

; BYPASS THE REST OF THE CHECKS 
.-SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
.•SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
.•SELECT PORT B. 

.’SEE IF STATUS EQ 0 FROM PORT A. 

'BR IF ZERO 

•SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 



CZRNHAO 

T3 


RM80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-l!$ 
PORT ’3* SEIZE/TIMEOUT TEST 


SEQ C050 


007150 

013737 

001172 

001126 


NOV 

$TNP3.$8DDAT 

007156 

113760 

001224 

000010 


M0V8 

PORTA. RMCS2(R0) 

007164 

005737 

001166 



TST 

STNP1 

007170 

001004 




BNE 

68$ 

007172 

012737 

177777 

001254 

67$: 

NOV 

#-1.RELERR 

007200 

104022 




EMT 

22 

007202 

013737 

001170 

001126 

68$: 

NOV 

$TMP2.$8DDAT 

007210 

013737 

001224 

001240 


MOV 

PORTA.PTNBR 

007216 

042737 

100100 

001126 


BIC 

#ATA!VV.$8DDAT 

007224 

023737 

001124 

001126 


CMP 

$GDDAT,$6DDAT 

007232 

001401 




BEQ 

69$ 

007234 

104007 




EMT 

7 

007236 

013737 

001172 

001126 

69$: 

MOV 

$TNP3,$8DDAT 

007244 

013737 

001226 

001240 


MOV 

PORTA.PTNBR 

007252 

042737 

100100 

001126 


BIC 

#ATA!VV.$8DDAT 

007260 

023737 

001124 

001126 


CMP 

$GDDAT.$6DDAT 

007266 

001401 




BEQ 

70$ 

007270 

104007 




EMT 

7 

007272 

000240 



70$: 

NOP 



; 'BAD DATA* FOR ERROR TYPE OUT 
.•SELECT PORT A. 

;SEE IF STATUS EQ ZERO FROM PORT 8. 

;BR IF NOT 

;SET 'RELEASE ERROR' INDICATOR 

.-LOOK FOR BIT FAILURES WHEN RMDS READ 
.•CHANGE PORT NUMBER 
.•DON'T CHECK ATTN BIT OR VV BIT 
.-ALL BITS OK ? 

;BR IF OK FROM PORT A. 

.•CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

; CHANGE PORT NUMBER 

.•DON'T CHECK ATTN BIT OR VV BIT 

.-SEE IF READ OK FROM PORT B. 

;BR IF OX 


.•CHECK THE REGISTERS STORED THROUGH PORT A. 
.-THE REGISTERS ARE STORED ON THE STACK. 


ALL REGISTERS SHOULD BE ZERO. 


007274 

013737 

001224 

001240 4$: 

MOV 

007302 

010037 

001122 


MOV 

007306 

062737 

000014 

001122 

ADD 

007314 

012637 

001126 


MOV 

007320 

001401 



BEQ 

007322 

104006 



EMT 

007324 

010037 

001122 


MOV 

007330 

062737 

000024 

001122 

ADD 

007336 

012637 

001126 


MOV 

007342 

001401 



BEQ 

007344 

104006 



EMT 

007346 

010037 

001122 


MOV 

007352 

062737 

000006 

001122 

ADD 

007360 

012637 

001126 


MOV 

007364 

001401 



BEQ 

007366 

104006 



EMT 

007370 

010037 

001122 


MOV 

007374 

062737 

000026 

001122 

ADD 

007402 

012637 

001126 


MOV 

007406 

001401 



BEQ 

007410 

104006 



EMT 

007412 

010037 

001122 


MOV 

007416 

062737 

000020 

001122 

ADD 

007424 

012637 

001126 


MOV 

007430 

001401 



BEQ 

007432 

104006 



EMT 

007434 

010037 

001122 


MOV 

007440 

062737 

000042 

001122 

ADD 

007446 

012637 

001126 


MOV 

007452 

001401 



BEQ 

007454 

104006 



EMT 

0C7456 

010037 

001122 


MOV 

007462 

062737 

000032 

001122 

ADD 

007470 

012637 

001126 


MOV 


PORTA.PTNBR 
RO.SBDADR 
#RMER1 .SBDADR 
(SP) +.$BDDAT 
.♦4 
6 

RO.SBDADR 
IRMMR1 .SBDADR 
(SPM.SBDDAT 
.♦4 
6 

RO.SBDADR 
#RMDA. SBDADR 
(SP) +.SBDDAT 
.♦4 
6 

RO.SBDADR 
#RMDT, SBDADR 
(SP) +.SBDDAT 
.♦4 
6 

RO.SBDADR 
#RMLA.S8DADR 
(SP) +,$BDDAT 
.♦4 
6 

RO.SBDADR 
#RMER2. SBDADR 
(SP) +.SBDDAT 
.■♦•4 
8 

RO.SBDADR 
#RMOF .SBDADR 
(SP)+.S8DDAT 


; CHANGE 'PORT NIWBER' TO THE OPPOSITE PORT 
.-BASE ADDRESS FOR REGISTER RMER1 
.•ADDRESS OF RMER1 FOR TYPEOUT 
.•CHECK THE STORED CONTENTS OF RMER1 
.•CONTENTS ZERO ? 

.-BASE ADDRESS FOR REGISTER RMMR1 
.’ADDRESS OF RMMR1 FOR TYPEOUT 
.•CHECK THE STORED CONTENTS OF RMMR1 
.•CONTENTS ZERO ? 

.-BASE ADDRESS FOR REGISTER RMDA 
.•ADDRESS OF RMDA FOR TYPEOUT 
.♦CHECK THE STORED CONTENTS OF RMDA 
; CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMDT 
ADDRESS OF RMDT FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMDT 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMLA 
ADDRESS OF RMLA FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMLA 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMER2 
ADDRESS OF RMER2 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMER2 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMOF 
ADDRESS OF RMOF FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMOF 
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00 7474 
007476 
007500 
007504 
007512 
007516 
007520 
007522 
007526 
007534 
007540 
00754? 
007544 
007550 
007556 
007562 
007564 
007566 
007572 
007600 
007604 
007606 
007610 


001401 

104006 

010037 

062737 

012637 

001401 

104006 

010037 

062737 

012637 

001401 

104006 

010037 

062737 

012637 

001401 

104006 

010037 

062737 

012637 

001401 

104006 

000004 


001122 

000034 001122 
001126 


001122 

000030 001122 
001126 


001122 

000044 001122 
001126 


001122 

000046 001122 
001126 


BEQ 

.♦4 

EMT 

6 

MOV 

RO.SBDADR 

ADD 

#RMDC,$8DADR 

MOV 

(SP)*,S8DDAT 

BED 

.♦4 

EMT 

6 

MOV 

RO.SBDADR 

ADD 

#RMSN,$8DADR 

MOV 

(SP) +.S8DDAT 

BEQ 

.♦4 

EMT 

6 

MOV 

RO.SBDADR 

ADD 

#RMEC1 .S8DADR 

MOV 

(SP)+,S8DDAT 

BEQ 

.♦4 

EMT 

6 

MOV 

RO.SBDADR 

ADD 

#RMEC2,SBDADR 

MOV 

(SP) ♦.SBDDAT 

BEQ 

.+4 

EMT 

SCOPE 

6 


CONTENTS ZERO ? 

BASE ADDRESS TOR REGISTER RMDC 
ADDRESS OF RMDC FOR TYPE OUT 
CHECK THE STORED CONTENTS OF RMDC 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMSN 
ADDRESS OF RMSN FOR TYPE OUT 
CHECK THE STORED CONTENTS OF RMSN 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RHECT 
ADDRESS OF RMEC1 FOR TYPEOUT 
CHECK THE STORED CONTENTS OF RMEC1 
CONTENTS ZERO ? 

BASE ADDRESS FOR REGISTER RMEC2 
: ADDRESS OF RMEC2 FOR TYPEOUT 
[CHECK THE STORED CONTENTS OF RMEC2 
[CONTENTS ZERO ? 

[LOOP ? 


007612 

007612 

007616 

007620 

007622 

007626 

007634 

007642 

007650 

007650 

007656 

007662 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


TEST 4 


PORT 'A* SEIZE/RELEASE TEST 


TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 

A. SEIZE THE DRIVE THROUGH PORT ’A* BY WRITING O’S INTO RMDS. 

B. SET VOLUME VALID AND CLEAR ANY ERROR 

C. ISSUE A RELEASE COMMAND THROUGH PORT'A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 
DRIVE. 


001300 


003062 

177777 

007650 

007650 

000004 

001100 

000012 


TST4: 


001300 

001106 

001110 

001102 

001176 


TEST4: 


KYBCTL 

2 * 

1 $ 

EXEC 

#-1 ,KYBCTL 

#TEST4,$LPADR 

#TEST4,SLPERR 

#4,$TSTNH 
#STACK,SP 
#10. .STIMES 


; PERFORMING ONLY SINGLE TEST ? 
;BR IF NOT 

;BR IF JUST ENTERED TEST 
.-RETURN & GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
,-SETUP ERROR LOOP ADDRESS 

;MOVE #4 TO TEST NUMBER 
.-LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


; START THE TIMER 


007670 005037 001256 
007674 012737 003720 001260 


TIME 

#2000., WATCH 


.•CLEAR THE ELAPSED TIME COUNTER 
.-SET WATCH TO 2000. MS 
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T4 PORT 'A' SEIZE /RELEASE TEST 


SEQ 0052 


; SEIZE THE DRIVE AND SET VOLUME VALID 
.-SEIZE THE DRIVE THROUGH PORT A 


007702 

007710 

007716 

007722 

007730 

007736 

007742 

007750 

00^756 

007762 

007770 

007^76 

010004 

010012 

010014 

010022 

010030 

010036 

010040 

010044 

010046 


010054 

010062 

010070 


010076 

010102 

010110 

010114 

010122 

010130 

010136 

010144 

010152 

010160 

010166 

010174 

010202 

010210 

010216 

010224 

010226 

010232 

010234 

010236 

010242 

010250 


113760 

013737 

005060 

013737 

012760 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104013 

005137 

000240 

012760 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

P» 

001037 

104046 

000137 

013737 

013737 


001224 

001224 

000012 

001226 

000021 

001250 

000012 

000012 

001122 

000100 

001126 

177677 

001124 

001126 

000100 

001174 

001250 


000010 

001242 

001244 

000000 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


000040 000010 


001224 

001224 

000013 


001254 

000012 

001122 

011600 

001224 

000012 

024001 


100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


010422 

001170 

001226 


000010 

001240 

000000 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 


PORTA, RNCS2CR0) ; SELECT PORT A 

PORTA, SEIZPT .-STORE SEIZING PORT'S ADDRESS 


RNDS(RO) .-WRITE RMDS 

PORTS, OPPRT ; 'OPPOSITE* PORT ADDRESS 

#21 .RMCS1 (RO) ;SET VOLUME VALID 

CKE&R .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(Rj) ,$SDDAT -6ET CONTENTS OF RMDS 

#RMDS,$8DADR ,-FORM REGISTER ADDRESS OF ERROR MESSAGE 

R0.S8DADR ;ADD RH/RM BASE ADDRESS 

fW.SGDDAT ;WHAT REGISTER SHOULD BE 

SBDDAT.STMPO .-MOVE REGISTER CONTENTS TO 'STMPO' 

#* CVV.STMPO .-SAVE SPECIFIED BITS 
S6DDAT, STMPO ; COMPARE THE BITS 

66$ ;BR IF OK 

$BDDAT,$TMP4 .-COPY 'BAD DATA' 

#VV.STMP4 .-CLEAR THE MASKED BITS 

STMP4.SGDDAT ;'0R’ WITH GOOD DATA FOR TYPEOUT 


S6DDAT, STMPO 
66S 

SBDDAT.STMP4 

#VV,STMP4 

STMP4.S6DDAT 

13 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 
; CLEAR DRIVE 


MOV #CLR,RMCS2(R0) .-CLEAR DRIVE 

.-RELEASE THE DRIVE FROM PORT A 

MOVB PORTA, RMCS2(R0) .‘SELECT PORT A 

MOV PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMCS1 (RO) ; ISSUE RELEASE THROUGH PORT A 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR 

MOV 

ADD 

MOV 

MOVB 

MOV 

81 C 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 


RELERR ; CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RHDS,$BDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR .ADD THE I/O BASE ADDRESS 

#MOL I PGM ! DPR ! DRY.SGDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2CR0) .-SELECT PORT A. 

RMDS(RO) -STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP !WRL!0M.STMP2 ; CLEAR DONT CARES 

STMP2.STMP0 .‘COPY IT INTO 'STMPO' 

fATAiVV.STMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2(RQ> .‘SELECT PORT B. 

RMDS(AO) .STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP'WRl!0M.$TMP$ ; CLEAR DONT CARES 


WWW 4T . WMfc.Vf 

STMPS.STMPI 
#ATA!VV,STMP1 
STMPO, STMP1 
68 $ 

STMPO 

70S 

46 

72 $ 

STMP2.SBDDAT 
PORTS, PTNBR 


COPY IT INTO 'STMP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 

SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


i 

i 


SEC 00i> 
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8 5 


010256 

010264 

010270 

010272 

010300 

010306 

010314 

010320 

010322 

010330 

010332 

010340 

010346 

010354 

010362 

010364 

010366 

010374 

010402 

010410 

010416 

010420 

010422 

010424 

010430 

010432 

010436 

010444 

010452 

010456 

010464 

010472 

010476 

010502 

010510 

010516 

010524 

010526 

010534 

010542 

010550 

010552 

010556 

010560 

010566 

010574 

010600 

010606 

010614 

010620 

010624 

010632 

010640 

010646 

010650 

010656 

010664 


113760 

005737 

001414 

013737 

013737 

113760 

005737 

001004 

012737 

104022 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

005737 

001402 

000137 

113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104017 

005137 

000240 

113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 


001226 

001164 

001224 

001172 

001224 

001166 

177777 

001170 

001224 

100100 

001124 


001172 

001226 

100100 

001124 


001254 

010706 

001224 

001224 

001250 

000012 

000012 

001122 

001124 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001226 

001226 

001250 

000012 

000012 

001122 

001124 

001126 

077777 

001124 

001126 

100000 

001174 


000010 


MOVB 

PORTS. RMCS2IR0) 


TST 

STMPO 



BEO 

69S 

001240 


MOV 

PORTA. PTNBR 

001126 


MOV 

STMP3. SBDDAT 

000010 


MOVB 

PORTA. RMCS2CR0) 


TST 

STMP1 



BNE 

70S 

001254 

69S: 

MOV 

#-1 .RELERR 


EMT 

22 

001126 

70S: 

MOV 

STMP2. SBDDAT 

001240 


MOV 

PORTA, PTNBR 

001126 


BIC 

«ATA!VV. SBDDAT 
SGDDAT, SBDDAT 

001126 


CMP 


BEO 

71 S 



EMT 

7 

001126 

71 S: 

MOV 

STMP3, SBDDAT 

001240 


MOV 

P0RT8. PTNBR 

001126 


BIC 

#ATA!VV, SBDDAT 
SGDDAT, SBDDAT 

001126 


CMP 


BEO 

72 S 



EMT 

7 


72$: 

NOP 




TST 

RELERR 


000010 

001240 

001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


000010 

001240 

001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


73$: 


SELECT PORT B. 

SEE IP STATUS EQ 0 FROM PORT A. 

BR IP ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
’BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IP STATUS EO ZERO FROM PORT B. 

BR IP NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IP READ OK FROM PORT B. 

BR IP OK 


BEO 

JMP 

wove 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEO 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

MOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEO 

MOV 

BIC 

BIS 


DID DRIVE RETURN TO NEUTRAL ? 

BR IF IN NEUTRAL 
GO WAIT FOR DRIVE TO TIMEOUT 
v. ;SELECT PORT A 
;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
; CLEAR THE 'CHECK ERROR' INDICATOR 


.♦6 

IS 

PORTA, RMCS2(R0) 

PORTA. PTNBR 
CKERR 

RMDS(RO).$BDDAT ;GET CONTENTS OF RMDS 
fRMDS.SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.•MOVE REGISTER CONTENTS TO 'STMPO' 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IP OK 
.-COPY 'BAD DATA' 

.•CLEAR THE MASKED BITS 
; 'OR* WITH GOOD DATA FOR TYPEOUT 


RO.SBDADR 
SGDDAT 
SBDDAT.JTMPO 
#*CATA, STMPO 
SGDDAT. STMPO 
73S 

SBDDAT.STMP4 
IATA.STMP4 
STMP4, SGDDAT 
17 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


PORTS. RMCS2CR0) ;SELECT PORT B 

PORTS. PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .’CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(RO) .SBDDAT ;6ET CONTENTS OP RMDS 

fRMDS.SBDADR .’FORM REGISTER ADDRESS OF ERROR MESSAGE 

RO.SBDADR ;ADD RH/RM BASE ADDRESS 

SGDDAT ;WHAT REGISTER SHOULD BE 

SBDDAT.STMPO .-MOVE REGISTER CONTENTS TO 'STMPO' 

#*CATA, STMPO .-SAVE SPECIFIED BITS 

SGDDAT. STMPO .-COMPARE THE BITS 

75S ;BR IF OK 

SBDDAT. STMP4 .-COPY 'BAD DATA* 

#ATA.$TNP4 .’CLEAR THE MASKED BITS _ „ 

STMP4. SGDDAT ;’0R’ WITH GOOD DATA FOR TYPEOUT 



SEO 0054 
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PORT ’A* SEIZE/RELEASE TEST 

010672 104017 

010674 005137 001250 
010700 000240 
010702 000137 010740 


010706 

010706 

010714 

010722 

010726 

010730 

010734 

010736 

010740 


113760 

013737 

005760 

001004 

005737 

001364 

104036 

000004 


001226 

001226 

000012 

001260 


000010 

001240 


17 

CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 
;GO CHECK FOR LOOP ON ERROR 


; IF RELEASE COMMAND DIDN’T RELEASE THE DRIVE, WAIT FOR THE PORT TIMEOUT 
;T0 RELEASE THE DRIVE 

IS: 

M0V8 PORTB,RHCS2(R0> :SELECT PORT B 

MOV PORTS, PTN8R ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

TST RMDS(RO) .-WAIT FOR TIMEOUT TO RELEASE DRIVE 

BNE 25 ;BR WHEN DRIVE RELEASED 

TST WATCH ; CHECK THE WATCH 

BNE IS ;BR IF NOT ZERO 

EMT 36 

2S: SCOPE .-LOOP ? 


010742 

010742 

010746 

010750 

010752 

010756 

010764 

010772 

011000 

011000 

011006 

011012 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


001300 


003062 

177777 

011000 

011000 

000005 

001100 

000012 


001300 

001106 

001110 

001102 

001176 


• ****»••••*••**••*••*••*****••***•***••••*••*•***••***••******** 

•TEST 5 PORT 'B' SEIZE/RELEASE TEST 

•TEST THE OPERATION OF THE RELEASE COMMAND, DRIVE SEIZED 

• A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 

I 8. SET VOLUME VALID AND CLEAR ANY ERROR 

• C. ISSUE A RELEASE COMMAND THROUGH PORT ’B\ VERIFY THAT THE DRIVE 

• RETURNED TO NEUTRAL, AND THAT NO ERRORS ARE INDICATED BY THE 

• DRIVE. 

• 

•**•*••************•****•**•***••***•*••*•***•***•**•*•***•*•••• 

TST5: 


TESTS: 


TST 

KYBCTL 

.‘PERFORMING ONLY SINGLE TEST ? 

BEQ 

2S 

;BR IF NOT 

BPL 

IS 

;BR IF JUST ENTERED TEST 

JMP 

EXEC 

.•RETURN t GET NEX? TEST NUMBER 

MOV 

#-1 .KYBCTL 

.-SET SINGLE TEST INDICATOR 

MOV 

#TEST5,SLPADR 

.SETUP SCOPE LOOP ADDRESS 

MOV 

#TEST5,SLPERR 

.SETUP ERROR LOOP ADDRESS 

MO VS 

#5,STSTNM 

.'MOVE #5 TO TEST NUMBER 

MOV 

fSTACK.SP 

;LOAD THE STACK POINTER 

MOV 

#10. .STIMES 

;;D0 10. ITERATIONS 


011020 005037 001256 
011024 012737 003720 001260 


011032 113760 001226 000010 


.-START THE TIMER 


TIME 

#2000.. WATCH 


.•CLEAR THE ELAPSED TIME COUNTER 
;SET WATCH TO 2000. MS 


.•SEIZE THE DRIVE AND SET VOLUME VALID 
.•SEIZE THE DRIVE THROUGH PORT B 

MOVB PORTB,RMCS2(RO) ; SELECT PORT B 


J 
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SEO 0055 


011040 

011C46 

011052 

011060 

011066 

011072 

011100 

011106 

011112 

011120 

011126 

011154 

011142 

011144 

011152 

011160 

011166 

011170 

011174 

011176 


013737 

005060 

013737 

012760 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104013 

005137 

000240 

012760 


001226 

000012 

001224 

000021 

001250 

000012 

00001 ? 

001122 

000100 

001126 

177677 

001124 

001126 

000100 

001174 

001250 


001242 

001244 

000000 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


000040 000010 


011204 113760 001226 000010 

011212 013737 001226 001240 
011220 012760 000013 000000 


011226 

011232 

011240 

011244 

011252 

011260 

011266 

011274 

011302 

011310 

011316 

011324 

011332 

011340 

011346 

011354 

011356 

011362 

011364 

011366 

011372 

011400 

011406 

011414 

011420 

011422 

011430 

011436 


005037 
012737 
060037 
012737 
1 13760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001037 
104046 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
113760 


001254 
000012 
001122 
011600 
001224 
000012 
024001 
001170 
1001 00 
001226 
000012 
024001 
001172 
100100 
001164 

001164 


011552 

001170 

001226 

001226 

001164 

001224 

001172 

001224 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


P0RTB.SE1ZPT .STORE SEIZING PORT'S ADDRESS 

RMDS(RO) ; WRITE RMDS 

PORTA, OPPRT ; 'OPPOSITE* PORT ADDRESS 

#21 .AMCS1 <R0> ;SET VOLUME VALID 

CKERR .-CLEAR THE ' CHECK ERROR' INDICATOR 

RMDS(RO) .S8DDAT ;GET CONTENTS OF RMDS 

#RMDS,$8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 

R0.S8DADR :ADD RH/RM BASE ADDRESS 

#W.SGDDAT ;WHAT REGISTER SHOULD BE 

SBDDAT.STMPO .-MOVE REGISTER CONTENTS TO 'STMPC 

#*CVV.STMPO ;SAVE SPECIFIED BITS 

SGDDAT, STMPO .-COMPARE THE BITS 

66S ;BR IF OK 

S8DDAT.STNP4 ;COPY 'BAD DATA' 

#VV.$TMP4 .-CLEAR THE MASKED BITS 

STMP4, SGDDAT ;'0R' WITH GOOD DATA FOR TYPEOUT 


SGDDAT, STMPO 
66S 

SBDDAT.STMP4 

#VV.$THP4 

STMP4.SGDDAT 

13 

CKERR 


MOV #CLR,RMCS2<R0> 
.-RELEASE THE DRIVE FROM PORT B 


; SET THE REGISTER COMPARE ERROR INDICATOR 
.-CLEAR DRIVE 


PORT8.PMCS2(RO) .-SELECT PORT B 

PORTS, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1(R0) .-ISSUE RELEASE THROUGH PORT B 


.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIC 

MOV 

BIC 

M0V8 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

M0V8 

TST 

BEO 

MOV 

MOV 

Hove 


RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,$8DADR .‘FORM THE ADDRESS OF RMDS FOR TYPEOUT 

R0.S8DADR .‘ADD THE I/O BASE ADDRESS 

#MOL ! PGM ! DPR ! DR Y , SGDDAT ; COMPARISON CONSTANT 
PORTA, RF1CS2(R0) .-SELECT PORT A. 

RMDS(RO) .STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIPJWRL!0H.STMP2 .-CLEAR DONT CARES 


STMP2.STMP0 
#ATA!W, STMPO ; 

PORTS, RMCS2(R0) 
RMDS(RO) .STMP3 ; 

#pip«wrl!om,stmp3 
$TMP3,STMP1 ; 

#ATA! W.STMP1 ; 

STMP0.STMP1 
68S ;i 

STM PO 

70S ;l 

46 

72$ ;l 

STMP2.SBDDAT 
PORTS, PTNBR 
PORTB.RMCS2CRO) ; 
STMPO 

69S ;l 

PORTA, PTNBR 
STMP3.S8DDAT 
PORTA,RMCS2(R0) ; 


COPY IT INTO 'STMPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

Select port b 

GET THE DRIVE ’STATUS REGISTER FROM PORT B. 

.‘CLEAR DONT CARES 
COPY IT INTO 'STMP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 


SEQ 0056 
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011444 

011450 

011452 

011460 

011462 

011470 

011476 

011504 

011512 

0’1514 

011516 

011524 

011532 

011540 

011546 

011550 

011552 

011554 

011560 

011562 

011566 

011574 

011602 

011606 

011614 

011622 

011626 

J11632 

011640 

011646 

011654 

011656 

011664 

011672 

011700 

011702 

011706 

011710 

011716 

011724 

011730 

011736 

011744 

011750 

011754 

011762 

011770 

011776 

012000 

012006 

012014 

012022 

012024 

012030 

012032 


005737 

001004 

012737 

104022 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

005737 

001402 

000137 

113760 

013737 

G05037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104017 

005137 

000240 

113760 

013737 

005037 

016037 

012737 

060037 

88B 

042737 

023737 

001414 

a 13737 
42737 
053737 
104017 
005137 
000240 
000137 


001166 

177777 001254 


001170 

001224 

100100 

001124 


001172 

001226 

100100 

001124 


001254 

012036 

001226 

001226 

001250 

000012 

000012 

001122 

001124 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001224 

001224 

001250 

000012 

000012 

001122 

001124 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

012070 


001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


000010 

001240 

001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


000C10 

001240 

001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


TST 

BNE 

MOV 

EAT 

MOV 

aov 

BIC 

CAP 

BEO 

EAT 

AOV 

AOV 

BIC 

CAP 

BEQ 

EAT 

NOP 

TST 

BEQ 

JAP 

MOVB 

AOV 

CLR 

AOV 

AOV 

ADD 

CLR 

AOV 

BIC 

CAP 

BEQ 

AOV 

BIC 

BIS 

EAT 

COA 

NOP 

A0V8 

AOV 

CLR 

AOV 

AOV 

ADD 

CLR 

AOV 

BIC 

CAP 

BEQ 

AOV 

BIC 

BIS 

EAT 

COA 

NOP 

JAP 


STAP1 

70S 

#-1 .RELERR 
22 

STAP2. SBDDAT 
PORTA. PTNBR 
KATA! VV, SBDDAT 
SGDDAT.SBDDAT 
71$ 

7 

STAP3.SBDDAT 
PORTB. PTNBR 
#ATA!VV, SBDDAT 
SGDDAT.SBDDAT 
72 S 
7 


SEE IF STATUS EQ ZERO FROA PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RADS READ 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 

BR IF OK FROA PORT A. 

CHECK RADS FOR BIT FAILURES - FROA PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROA PORT B. 

BR IF OK 


RELERR ;DID DRIVE RETURN TO NEUTRAL ? 

.*6 ;BR IF IN NEUTRAL 

IS ;G0 WAIT FOR DRIVE TO TIMEOUT 

PORTB, RACS2(R0) .-SELECT PORT B 

PORTB, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RADS(RO).SBDDAT ;GET CONTENTS OF RADS 

tRADS.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 

RO.SBDADR .’ADD RH/RA BASE ADDRESS 

SGDDAT ,-WHAT REGISTER SHOULD BE 

SBDDAT.STAPO .-MOVE REGISTER CONTENTS TO 'STAPO' 

fCATA. STAPO .-SAVE SPECIFIED BITS 

SGDDAT, STAPO .-COMPARE THE BITS 

73S ;8R IF OK 

SBDDAT .STAP4 ,-COPY 'BAD DATA' 

#ATA.STMP4 .-CLEAR THE MASKED BITS 

STAP4. SGDDAT .-'OR' WITH GOOD DATA FOR TYPEOUT 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


PORTA. RACS2(R0) ;SELECT PORT A 

PORTA, PTNBR ;AOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RADS (RO). SBDDAT ;GET CONTENTS OF RADS 

fRMDS.SBDADR .-FORA REGISTER ADDRESS OF ERROR MESSAGE 

RO.SBDADR .ADD RH/RA BASE ADDRESS 

SGDDAT ;WHAT REGISTER SHOULD BE 

SBDDAT.STAPO .-MOVE REGISTER CONTENTS TO 'STAPO' 

#*CATA,ST*PO .-SAVE SPECIFIED BITS 

SGDDAT, STAPO ; COMPARE THE BITS 

75S ;BR IF OK 

SBDDAT. STAP4 .-COPY 'BAD DATA' 

#ATA.STMP4 ; CLEAR THE MASKED BITS 

STMP£ , SGDDAT ;'0R' WITH GOOD DATA FOR TYPEOUT 

17 

CKERR 


COA CKERR .-SET THE REGISTER COMPARE ERROR INDICATOR 

75 j. MOP 

JAP 2S :G0 CHECK FOR lOOP ON ERROR 

;IF RELEASE COMMAND DIDN'T RELEASE THE DRIVE. WAIT FOR THE PORT TIMEOUT 


SEQ 0057 
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012056 

012056 113760 001224 
012044 015757 001224 

012052 005760 000012 
012056 001004 
012060 005737 001260 
Cl 2064 001564 
012066 104036 
012070 000004 


000010 

001240 


;T0 RELEASE THE DRIVE 


MOVB PORTA, RNCS2IR0) rSELECT PORT A 

MOV PORTA, PTNBR .WOVE PORT ADDRESS TO LOCATION FOR TYPE OUT 

TST RMDS(RO) .-WAIT FOR TIMEOUT TO RELEASE DRIVE 

BHE 2$ ;BR WHEN DRIVE RELEASED 

TST UATCH ; CHECK THE HATCH 

BNE IS ;BR IF NOT ZERO 

ENT 36 

SCOPE .-LOOP ? 


012072 

012072 

012076 

012100 

012102 

012106 

012114 

012122 

012130 

012130 

012136 

012142 

373 

384 012150 
012156 
012164 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 

11376C 

013737 

013737 


001300 


003062 

177777 

012130 

012130 

000006 

001100 

000012 

001224 

001224 

001224 


012200 

012204 

012212 

012216 

012224 

012232 

012240 

012246 

012254 

ilk 

012276 

012304 


005037 

012737 

060037 

m 

016037 

m 

042737 

113760 

016037 

m 


001300 

001106 

001110 

001102 

001176 

000010 

001240 

001242 


012172 012760 000013 000000 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 


024001 

001172 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 


•TEST 6 


PORT ’A’ NEUTRAL/RELFASE TEST 


•TEST OPERATION OF RELEASE COMMAND, DRIVE IN NEUTRAL 

• A. ISSUE A RELEASE COMMAND THROUGH PORT *A' WITH THE DRIVE IN 

• NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 

• 


TEST6: 


KY8CTL 

2 $ 

1 $ 

EXEC 

#-1 ,KYBCTL 

RTEST6.SLPADR 

#TEST6,$LPERR 

#6,$TSTNM 
RSTACK.SP 
# 10 . .Stines 


PERFORMING ONLY SINGLE TEST ? 
8R IF NOT 

8R IF JUST ENTERED TEST 
RETURN l GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #6 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 


M0V8 

MOV 

NOV 


PORTA, RMCS2(R0) rSELECT PORT A 

PORTA, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTA. SEI2PT ;ADDR OF PORT WHICH WILL ISSUE RELEASE 


; ISSUE A RELEASE COMMAND 

MOV #13.RMCS1 CRO) 


.•ISSUE A RFLEASE COMMAND 


.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR 

MOV 

ADD 

MOV 

MO VS 

MOV 

BIC 

MOV 

BIC 

MOV? 

MOV 

BIC 

MOV 


RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

RRMDS.SBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 

RO.SBOADR ,-ADD THE I/O BASE ADDRESS 

«MOL!PGM!DPR!DRy!w,SGDDAT ; COMPARISON CONSTANT 
PORTA. RMCS2CR0) .‘SELECT PORT A. 

RMDS(£0),STHP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
RPIP!WRLfON.$TNP2 .-CLEAR DONT CARES 

$TMP2,$TNP0 .COPY IT INTO 'STMPO' 

#ATA!W,$TNPO .‘CLEAR PORT DEPENDENT BITS FROM THE COPY 
P0RTB.RNCS2CRQ) ; SELECT PORT B. 

RMDS(jfo>.$TNP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP«WRl!oM.*TMP$ .-CLEAR DONT CARES 

stmpS.stmpi .-copy IT INTO '*TMP1' 


SEO OO 
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385 

394 

395 


PORT ’A 

* N£UTAAL/PEIE*$E TEST 





012312 

042737 

100100 

001166 


B1C 

#ATA! W.8THP1 

; CLEAR PORT DEPENDENT BITS FROM THE COP? 

012320 

023737 

001164 

001166 


CMP 

STMP0.STMP1 

; JS THE STATUS REGISTER THE SAME FROM BOTH PORTS 

012326 

012330 

001006 

005737 

001164 



BNE 

TST 

64S 

STMPO 

‘BR IF NOT 

‘REGISTERS ARE THE SAME: ARE THEY ZERO ? 

012334 

001045 




BNE 

66S 

;BR IF NOT 

012336 

104046 




EMT 

46 


012340 

m 

012540 



JMP 

68S 

.•BYPASS THE REST OF THE CHECKS 

012344 

001170 

001126 

64S: 

MOV 

STMP2.S8DDAT 

.‘SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

012352 

013737 

001226 

001240 


MOV 

PORTS, PTN8R 

.‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

012360 

113760 

001226 

000010 


HOVB 

PORTB,RHCS2(RO> 

.‘SELECT PORT B. 

012366 

005737 

001164 



TST 

STMPO 

.‘SEE IF STATUS EQ 0 FROM PORT A. 

012372 

001414 




BEQ 

65S 

;BR IF ZERO 

012374 

013737 

001224 

001240 


NOV 

PORTA. PTNBR 

.‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

012402 

013737 

001172 

001126 


MOV 

STMP3.SBDDAT 

.‘•BAD DATA* FOR ERROR TYPE OUT 

012410 

113760 

001224 

000010 


HOVB 

PORTA, RMCS2(R0) 

.‘SELECT PORT A. 

012416 

005737 

001166 



TST 

STMP1 

.‘SEE IF STATUS EQ ZERO FROM PORT B. 

012422 

001012 



BNE 

66S 

;SR IF NOT 

012424 

012737 

177777 

001254 

65* : 

MOV 

0-1.RELERR 

.‘SET 'RELEASE ERROR' INDICATOR 

012432 

012760 

000011 

000000 


MOV' 

ni.RMCSKRO) 

; CLEAR THE DRIVE 

012440 

012760 

000013 

000000 


MOV 

A13.RMCS1 (RO) 

.‘RELEASE THE DRIVE 

012446 

104030 




EMT 

30 


012450 

013737 

001170 

001126 

66S: 

MOV 

STMP2.S8DDAT 

.‘LOOK FOR BIT FAILURES WHEN RMDS READ 

012456 

013737 

001224 

001240 


MOV 

PQRTA.PTN8R 

.’CHANGE PORT NUMBER 

012464 

042737 

100000 

001126 


BIC 

AATA.SBDDAT 

.’DON'T CHECK THE ATTN BIT 

012472 

012500 

023737 

001124 

001126 


CMP 

SGDDAT.SBDDAT 

.‘ALL BITS OK ? 

001401 




BEQ 

67S 

;3 R IF OK FROM PORT A. 

012502 

104007 




EMT 

7 


012504 

013737 

001172 

001126 

67*: 

MOV 

STMP3.S8DDAT 

.CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

012512 

013737 

001226 

001240 


MOV 

P0R7B. PTNBR 

.•CHANGE PORT NUMBER 

012520 

042737 

100000 

001126 


BIC 

AATA.SBDDAT 

.‘DON'T CHECK THE ATTN BIT 

012526 

012534 

023737 

001124 

001126 


CMP 

SGDDAT.SBDDAT 

.'SEE IF READ OK FROM PORT B. 

001401 




BEQ 

68S 

;BR IF OK 

012536 

104007 




EMT 

7 


012540 

000240 



68S: 

NOP 



012542 

000004 




SCOPE 


.‘LOOP ? 


012544 
012544 
012550 
01 2552 
012554 
012560 
012566 
012574 
012&02 
012602 
012610 


TEST 7 


PORT 'B* NEUTRAL/RELEASE TEST 


TEST OPERATION OF RELEASE COMMAND. DRIVE IN NEUTRAL 
A. 


ISSUE A RELEASE COMMAND THROUGH PORT 'B* WITH THE DRIVE IN 
NEUTRAL; VERIFY THAT THE DRIVE REMAINS IN NEUTRAL. 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 


001300 


1 7777/ 
012602 
012602 

000007 

001100 


001300 

001106 

001110 

001102 


TST7: 


IS: 

2S: 

TEST7: 


TST KYBCTL 

BEQ 2$ 

BPL IS 

JMP EXEC 

NOV #-1, KYBCTL 

NOV #TEST7,SLPADR 

NOV #TEST7,SLPERR 

N0V8 A7.STSTNH 

NOV ASTACK.SP 


PERFORMING ONLY SINGLE TEST ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN l GET NEXT TEST NUMBER 
SET SIN6LE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

NOVE #7 TO TEST NUMBER 
LOAD THE STACK POINTER 


S£Q l 
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0*2614 012737 000012 001176 

396 

397 012622 113760 001226 000010 
012630 013737 001226 001240 
012636 013737 001226 001242 


012644 012760 000013 000000 


012652 

012656 

012664 

012670 

012676 

012704 

012712 

012720 

012726 

012734 

012742 

012750 

012756 

012764 

012772 

013000 

013002 

013006 

013010 

013012 

013016 

013024 

013032 

013040 

013044 

013046 

013054 

013062 

013070 

013074 

013076 

013104 

013112 

013120 

013122 

013130 

013136 

013144 

013152 

013154 

013156 

013164 

013172 

013200 

013206 

013210 


005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001045 
104046 
000137 
013737 
013737 
1 13760 
005737 
001414 
013737 
013737 
113760 
005737 
001012 
012737 
012760 
012760 
104030 
013737 
013737 
042737 
023737 
001401 
104007 
013737 
013737 
042737 
023737 
001401 
104007 


001254 
000012 
001122 
011700 
001 224 
000012 
024001 
001170 
100100 
001226 
000012 
024001 
001172 
100100 
001164 

001164 


013212 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


nov 

PC vs 

NOV 

MOV 


#10. .STINES 


; ; DO 10. ITERATIONS 


P0RTB,RNCS2(R0) ;SELECT PORT 8 

PORTS, PTNBR ;NOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTS, SEIZPT ;ADDR OF PORT WHICH WILL ISSUE RELEASE 


.-ISSUE A RELEASE COMMAND 

NOV #13.RMCS1(R0) 


.•ISSUE A RELEASE COPLAND 


.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 64$: 

001240 

000010 


001240 

001126 

000010 


001254 65$: 
000000 
000000 

001126 66$: 
001240 
001126 
001126 


001126 67$: 

001240 

001126 

001126 


CLR 

NOV 

ADD 

PK)V 

M0V8 

NOV 

SIC 

MOV 

s:c 

wove 

NOV 

SIC 

PIOV 

SIC 

CAP 

BNE 

TST 

BNE 

ENT 

JNP 

PIOV 

MOV 

MOVB 

TST 

BEQ 

MOV 

PIOV 

MOVB 

TST 

BNE 

PIOV 

MOV 

PIOV 

ENT 

MOV 

PIOV 

BIC 

CMP 

BEQ 

EAT 

NOV 

NOV 

BIC 

CAP 

BEQ 

ENT 


RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,$6DADR .‘FORM THE ADDRESS OF RADS FOR TYPEOUT 
RO,$BDADR ;ADD THE I/O BASE ADDRESS 

#MOL 3 PGA ! DPR ! DR Y ! VV ,$GDDAT .-COMPARISON CONSTANT 
PORTA, RAC S2(R0) .SELECT PORT A. 

RNDS(R0),$TNP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 

#PIP!WRL!0N,STNP2 .-CLEAR DONT CARES 

CTNP2,$TAP0 .-COPY IT INTO 'STNPO' 

fATA.'VV, STNPO .-CLEAR PORT DEPENDENT BI T S FROM THE COPY 

PORTS, RNCS2(R0> .SELECT PORT B. 

RNDS(R0).STHP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRl!oA.$TNP3 .-CLEAR DONT CARES 


$TNP3.$TAP1 
#ATA!VV,STAP1 
STNPO, STNP1 
64$ 

STNPO 

66 $ 

46 

68 $ 

STNP2.SBDDAT 
PORTS, PTNBR 
PORTS, RACS2CR0) 
STNPO 
65$ 

PORTA, PTNBR 

$TNP3,SBDDAT 

PORTA,RACS2(RO) 

STNP1 

66 $ 

#-1 .RELERR 
#11 ,RNCS1 (RO) 
#13,RACS1 (R0> 

30 

$TNP2,S6DDAT 

PORTA.PTNBR 

#ATA,SBDDAT 

$GDDAT,$8DDAT 

67* 

7 

$TNP3,$BDDAT 
PORTS, PTNBR 
#ATA,SBDDAT 
$GDDAT,$8DDAT 
68 $ 

7 


COPY IT INTO *$TNP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTEP THE SANE FROM BOTH PORTS 

SR IF NOT 

REGISTERS ARE THE SANE: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RADS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RADS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 
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T7 


1 5 
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SEO 0060 


398 

417 

418 


013212 000240 
013214 000004 


419 

443 


013216 

013216 

013222 

013224 

013226 

013232 

013240 

013246 

013254 

013254 

013262 

013266 


013274 

013302 

013306 

013314 

013334 

013342 


013350 

0’3356 

053364 

013370 

013376 

013404 

013412 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 

013737 

005060 

113760 

013737 

013737 

016037 


68S: 


NOP 

SCOPE 


;LOQP ? 


001300 


003062 

177777 

013254 

013254 

000010 

001100 

000012 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001226 

001226 

000012 

001224 

001224 

001224 

000012 


TEST 10 


PORT 'A* RELEASE INTERFERENCE TEST 


VERIFY THAT A COWHAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RRDS. 

B. ISSUE A RELEASE COWHAND THROUGH PORT ’A’. 

C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT 'B\ 

D. RELEASE THE DRIVE THROUGH PORT *8’. VERIFY THAT THE DRIVE SWITCHED 
TO PORT ’A'. 

E. RELEASE THE DRIVE THROUGH PORT 'A*. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


001300 

001106 

001110 

001102 

001176 


000010 

000000 

000000 

000010 

000000 

000000 


000010 

001242 

000010 

001240 

001244 

001126 


TST10: 



TST 

KYBCTL 

.•PERFORMING ONLY SINGLE TEST ? 

BEQ 

2$ 

;BR IF NOT 

BPL 

1$ 

;BR IF JUST ENTERED TEST 

JHP 

EXEC 

; RE THIN f GET NEXT TEST NUMBER 

1$: ROV 

#-1 .KYBCTL 

.-SET SINGLE TEST INDICATOR 

2$: ROV 

#TEST10.SLPADR 

.-SETUP SCOPE LOOP ADDRESS 

ROV 

#TEST10.SLPERR 

.•SETUP ERROR LOOP ADDRESS 

TEST10: 



HOVB 

flO.STSTNR 

,-ROVE #10 TO TEST NUMBER 

ROV 

fSTACK.SP 

.-LOAD THE STACK POINTER 

ROV 

#10. .STINES 

;;D0 10. ITERATIONS 


.•CLEAR ATTENTION BITS FOR BOTH PORTS 


HO VS 

CLR 

NOV 

ROV 

HOVB 

CLR 

ROV 

ROV 


PORTA, RNCS2CR0) 
RRDSCRO) 

#11 ,RWCS1 (RO) 
#13,RHCS1(R0> 


.•SELECT PORT #A 
.SEIZE THE DRIVE 
.•ISSUE DRIVE CLEAR 

.u !n nv.M n v- .-RELEASE THE DRIVE 

PORTS, RWCS2CR0) .-SELECT PORT #8 , , 

RHDS(RO) .-SEIZE THE DRIVE THROUGH PORT 'B' 

fll.RWCSKRO) .-ISSUE DRIVE CLEAR 

#13.RWC$1(R0) .-RELEASE THE DRIVE 


.SEIZE THE DRIVE THROUGH PORT B 

HOVB PORTB,RRCS2(R0) ; SELECT PORT B . 

ROV PORTB.SEIZPT .-STORE SEIZING PORT'S ADDRESS 
CLR RWDS(RO) .-WRITE RWDS 

HOVB PORTA, RWCS2CR0) -SELECT PORT A „ „ 

ROV PORTA, PTNBR .‘MOV* PORT ADDRESS TO LOCATION FOR TYPEOUT 
ROV PORTA, OPPRT ; 'OPPOSITE' PORT ADDRESS 

NOV RRDS(ftO).SBDDAT .SEE IF DRIVE SEIZED BY PORT B 
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013420 

013424 

013432 

013436 

013444 

013446 

013450 

013454 

013454 

013462 

013470 

013476 

013504 

013512 

013520 

013524 

013532 

013540 

013546 

013550 

013552 


013554 

013562 

013570 


013576 
013602 
013610 
013616 
Cl 3622 
013626 
013634 
0)3636 
013640 
01 5^44 
013652 
013660 
013664 
013672 
013674 
013676 
013704 
013706 
013712 
013714 


013720 

013726 

013734 


010037 

062737 

005037 

023737 

001403 

104004 

000137 

113760 

013737 

016037 

042737 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104005 

000240 


113760 

013737 

012760 


005037 

016037 

012737 

060037 

0C5037 

023737 

001403 

104010 

005137 

016037 

012737 

060037 

032737 

001404 

104011 

012760 

000240 

005737 

001402 

000137 


113760 

013737 

012760 


001122 

000012 

001124 

001124 


014460 

001226 

001226 

000012 

C20001 

011700 

001124 

001166 

001126 

001166 

001124 


001122 

001126 


000010 

001240 

001126 

001126 

001124 

001166 

001164 

001164 

001164 


001224 

001224 

000013 


001250 

000012 

000012 

001122 

001124 

001124 


001250 

000000 

000000 

001122 

020000 


001 226 
001226 
000013 


PAoE 9 * 


R0.S8DADR 

#RMDS.$8DADfl 

S6DDAT 

$GDDAT,$8DD*T 

64$ 

4 

1$ 


SEQ Ojo 


;R H/RM BASE ADDRESS 
.'GENERATE BAD RE6ISTER ADDRESS 
.REGISTER SHOULD BE ZERO 
;IS THE REGISTER ZERO 
;8R IF IT IS 

.'BYPASS REST OF THE SUBTEST 


PORTS. RMCS2(R0> ;SELECT PORT B 

P0RT8.PTNBR ;M0V& PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) .S8DDAT .SEE IF SEIZING PORT SEES CORRECT STATUS 
fOM.'PIP.SBDDAT .'CLEAR DONT CARE BITS 

#nOL.'PGH!DPR!DRY!VV,$GDDAT .'EXPECTED STATUS 
$6DDAT.$THP1 ;USE GOOD DATA AS A MASK 


STMP1 

S6DDAT.STRPG 

$TMP1.$TMP0 

SGDDAT.STMPO 

65$ 

5 


COMPLEMENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET ? 

8 R IF THEY ARE 


000010 

001240 

000000 


001126 

001122 


001126 


001126 

001122 

001126 


.‘TRY TO EXECUTE A RELEASE COMMAND THROUGH PORT A 
M0V3 PORTA. RMCS2(R0) .'SELECT PORT A 

MOV PORTA. PTNBR .'MOVE PORT ADDRESS TC LOCATION FOR TYPEOUT 

MOV R13.RMCS1 (R0> .'ISSUE A RELEASE COMMAND THROUGH PORT A 

; VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT B 

CLR CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

MOV RMDSIROJ.SBDDAT ;GET CONTENTS OF RMDS 

MOV RRMDS. S8DADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


R0.$8DADR 

SGDDAT 

$GDDAT.$8DDAT 

66 $ 

10 

CKERR 


.-ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 

;BR IF OK 


CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 

RMCS1 (RO) .SBDDAT ;GET THE CONTENTS OF RMCS1 
#RMCS1 .S8DADR .'FORM ADDRESS OF REGISTER 

R0.S8DADR .‘ADDRESS BASE 

RMCPE.$8DDAT ;IS 'MCPE' SET ? 

67$ ;8R IF NOT 

11 

fTRE.RMCSl (RO) 


040000 000000 

001250 

014460 


TST CKERR 
BEQ .+6 

JMP 1$ 

.‘RELEASE THE DRIVE FROM PORT B 


.•CLEAR 'MCPE' 

.‘WAS RMDS NON ZERO ? 

; CONTENTS OF RMDS SEEN BY PORT A 
.'DRIVE IN NEUTRAL, BYPASS REST OF JtST 


000010 

001240 

000000 


PORTS, RMCS2(R0) ;SELECT PORT B 

PORTS, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RMCS1(R0) .'ISSUE RELEASE THROUGH PORT B 


SEO 0062 


LZRNHAO RH80 DUAL Foh' m flACRO V04.00 15-JAN-82 07:09:22 PAGE 9-25 
T 1 0 PORT 'A' RELEASE INTERFERENCE TEST 


.•VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


013742 

013746 

013754 

013762 

013766 

013774 

014002 

014010 

014016 

014024 

014032 

014034 

014040 

014042 

014044 

014052 

014060 

014066 

014070 

014072 


014074 

014102 

014110 


014116 

014122 

014130 

014134 

014142 

014150 

014156 

014164 

014172 

014200 

014206 

014214 

014222 

014230 

014236 

014244 

014246 

014252 

014254 

014256 

014262 

014270 

014276 

014304 

014310 

014312 


005037 

012737 

012737 

060037 

113760 

013737 

016037 

113760 

013737 

016037 

001404 

005737 

001401 

104031 

013737 

013757 

023737 

001401 

104027 

000240 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 


013737 

013737 

113760 

005737 

001414 

013737 


001254 

111700 

000012 

001122 

001224 

001224 

000012 

001226 

001226 

000012 

001164 


001164 

001224 

001124 


001224 

001224 

000013 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


014456 

001170 

001226 

001226 

001164 


001124 

001122 

OOCOIO 

001240 

001164 

000010 

001240 

001126 


001126 

001240 

001126 


CLR 

NOV 

NOV 

ADD 

N0V8 

NOV 

NOV 

N0V8 

NOV 

NOV 

BEQ 

TST 

BEQ 

ENT 

NOV 

NOV 

CNP 

BEQ 

ENT 

NOP 


RELERR .-CLEAR 'RELEASE ERROR' INDICATOR 

fATAINOL !PGN!DPR1 dRY! W.S 6DDAT .-COMPARISON CONSTANT 
fRMDS.SBDADR .-REGISTER ADDRESS INCRENENT 
RO.SBDADR .-REGISTER BASE ADDRESS FOR TYPEOUT 

P0RTA.RNCS2(R0) ;SELECT PORT A 

PORTA. PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RNDS(RO) .STMPO ;REAi) STATUS REGISTER FROM PORT A 
PORTB.RMCS2(RO) ;SELECT PORT B 

PORTB.PTNBR .-MOVE PORT .ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0>.S8DDAT .-DRIVE STATUS FROM PORT B 


68 $ 

STMPO 

68S 

31 

STNP0.S6DDAT 
PORTA. PTNBR 
SGDDAT.SBDDA 
69$ 

27 


;BR IF STATUS FROM PORT B ZERO 
;IS STATUS FROM PORT A ZERO ? 

;BR IF ZERO 

.-CHECK STATUS FROM PORT A 
.-CHANGE PORT ADDRESS FOR TYPEOUT 
.-COMPARE WITH CONSTANT 
;BR IF OK 


.RELEASE THE DRIVE FROM PORT A 


000010 

001240 

000000 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

00U010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


PORTA. RMCS2CR0) .-SELECT PORT A 

PORTA. PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
*13.RMCS1(R0> .‘ISSUE RELEASE THROUGH PORT A 


.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


001224 001240 


CLR 

NOV 

ADD 

NOV 

N0V8 

NOV 

BIC 

NOV 

BIC 

NOVB 

NOV 

BIC 

NOV 

BIC 

CNP 

BNE 

TST 

BNE 

ENT 

JMP 

NOV 

NOV 

NOVB 

TST 

BEQ 

NOV 


RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

fRNDS.SBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR :ADD THE I/O BASE ADDRESS 

fNOL J PGM ! DPR ! DRY ! VV , SGDDAT .-COMPARISON CONSTANT 
PORTA. RNCS2(R0) .-SELECT PORT A. 

RNDS(R0).STNP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 

#PIP!WRl!0M.$TMP2 .-CLEAR DONT CARES 

STNP2.STNP0 .-COPY IT INTO 'STHPO* 

fATAIVV, STMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 

P0RTB.RMCS2 (RO) .-SELECT PORT B. 

RMDS(RO) -STNP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP.'WRL!0N,$TMP3 ; CLEAR DONT CARES 


STNP3.STNP1 

fATA! VV.STNP1 

STMPO. STNP1 

70S 

STMPO 

72S 

46 

74S 

STNP2.S8DDAT 

PORTB.PTNBR 


.-COPY IT INTO 'STNP1' 

.-CLEAR PORT DEPENDENT BITS FRON THE COPY 

;IS THE STATUS REGISTER THE SANE FROM BOTH PORTS ? 

•Bf? hoy 

■REGISTERS ARE THE SANE: ARE THEY ZERO ? 

;BR IF NOT 

.-BYPASS THE REST OF THE CHECKS 

.-SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

.-SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 


PORTB,RNCS2(RO) .-SELECT PORT B. 

STMPO .-SEE IF STATUS EQ 0 FRON PORT A. 

71S ;BR IF ZERO 

PORTA, PTNBR .‘SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
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L > 


SEQ 0063 


/44 

463 

464 


014320 

014326 

014334 

014340 

014342 

014350 

014356 

014364 

014366 

014374 

014402 

014410 

014416 

014420 

014422 

014430 

014436 

014444 

014452 

0K454 

014456 

014460 


465 

466 


013737 

113760 

00573/ 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


014462 
014462 
014466 
014470 
014472 
014476 
014504 
014512 
014520 
014520 
OH 526 
014532 


001172 

001126 


MOV 

$TMP3,$8DDAT 
PORTA. RMCS2(R0) 

001224 

000010 


M0V8 

001166 


TST 

STMP1 



BNE 

72$ 

177777 

001254 

71$: 

MOV 

#-1,RELERR 

000011 

OOOCOO 


MOV 

m.RMCSKRO) 

000013 

000000 


MOV 

#13,RMCS1 (RO) 


CMT 

26 

001170 

001126 

72$: 

MOV 

$TMP2.$BDDAT 

001224 

001240 


MOV 

PORTA. PTNBR 
#ATA.$BDDAT 

100000 

001126 


SIC 

00H24 

001126 


CMP 

$GDDAT.$8DDAT 


BEQ 

73$ 




EMT 

7 

001172 

001126 

73$: 

MOV 

$TMP3,$8DDAT 

001226 

001240 


MOV 

PORTS, PTNBR 

100000 

001126 


BIC 

JATA.SBDDAT 

001124 

001126 


CMP 

$GDDAT,$BDDAT 



BEG 

74$ 




EMT 

7 



74$: 

NOP 




1$: 

SCOPE 



'SAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET ‘RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON’T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON’T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 


;LOOP ? 


********** ************* 4 ***** *************************** ******* 

TEST 11 PORT ’B' RELEASE INTERFERENCE TEST 

VERIFY THAT A COMMAND ISSUED BY ONE PORT IS NOT RECOGNIZED IF THE DRIVE 
IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

B. ISSUE A RELEASE COMMAND THROUGH PORT ’B’. 

C. VERIFY THAT THE DRIVE IS STILL SEIZED BY PORT ’A*. 

D. RELEASE THE DRIVE THROUGH PORT ’A'. VERIFY THAT THE DRIVE SWITCHED 
TO PORT ’B*. 

E. RELEASE THE DRIVE THROUGH PORT 'B*. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

*************************************************************** 

TST11 : 

PERFORMING ONLY SINGLE TEST ? 

BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN t GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #11 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 


00S737 

001300 


TST 

KY8CTL 

001406 



BEQ 

2$ 

100002 



BPL 

1$ 

000137 

003062 


JMP 

EXEC 

012737 

177777 

001300 

1$: MOV 

#-1 .KYBCTL 

012737 

014520 

001106 

2$: MOV 

#TEST11,$LPADR 

012737 

014520 

001110 

MOV 

#TEST11 ,$LPERR 




TEST11 : 


112737 

000011 

001102 

MOV0 

#11,$TSTNM 

012706 

001100 


MOV 

fSTACK.SP 

012737 

000012 

001176 

MOV 

#10.,$TIMES 


SEQ 0064 
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; CLEAR ATTEN T JON BITS FOR BOTH PORTS 


014540 

014546 

014552 

014560 

014566 

014574 

014600 

014606 


014614 

014622 

014630 

014634 

014642 

014650 

014656 

014664 

014670 

014676 

014702 

014710 

014712 

014714 

014720 

014720 

014726 

014734 

014742 

014750 

014756 

014764 

014770 

014776 

015004 

015012 

015014 

015016 


015020 

015026 

015034 


015042 

015046 

015054 

015062 

015066 

015072 

015100 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 

013737 

005060 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 

113760 

013737 

016037 

042737 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104005 

000240 


113760 

013737 

012760 


005037 

0127^7 

060037 

fe 

001403 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001224 

001224 

000012 

001226 

001226 

001226 

000012 

001122 

000012 

001124 

001124 


015724 

001224 

001224 

000012 

020001 

011700 

001124 

001166 

001126 

001166 

001124 


000010 

000000 

000000 

000010 

000000 

000000 


000010 

001242 

000010 

001240 

001244 

001126 

001122 

001126 


000010 

001240 

001126 

001126 

001124 

001166 

001164 

001164 

001164 


001226 

001226 

000013 


001250 

000012 

000012 

001122 

001124 

001124 


MOVB 

PORTA, RMCS2(R0) 

CLP 

RMDS(RO) 

MOV 

m.RMCSKRO) 

MOV 

A13.RMCSKR0) 

MOVB 

PORTS, RMCS2(R0) 

CLR 

RMDSCRO) 

MOV 

#11,RMCSKR0> 

MOV 

I13.RMCS1 (RO) 


SELECT PORT #A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT '8' 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


; SEIZE THE DRIVE THROUGH PORT A 


PORTA, RHCS2(R0) .-SELECT PORT A 
PORTA, SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) ; WRITE RMDS 

PORTS. RMCS2CR0) .SELECT PORT B 

PORTS, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTS, OPPRT 
RMDSCRO) ,$8DDAT 
RO.tBDADR 
fRMDS.SBDADR 
SGDDAT 

SGDDAT.JBDDAT 

64$ 

4 

IS 


•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 

BYPASS REST OF THE SUBTEST 


PORTA, RMCS2CR0) .-SELECT PORT A 

PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS (RO) .SBDDAT .-SEE IF SEIZING PORT SEES CORRECT STATUS 
#QM! PI P. SBDDAT .-CLEAR DONT CARE BITS 

*M0L ! PGM 'DPR! DRY !VV, SGDDAT .-EXPECTED STATUS 
SGDDAT, STMP1 ;USE GOOD DATA AS A MASK 


STMP1 

SBDDAT.STMPO 
STMP1 .STMPO 
SGDDAT. STMPO 
65$ 



EMT 

65$: NOP 

5 


.-TRY TO EXECUTE 

A RELEASE COMMA! 

000010 

MOVB 

PORTS, RMCS2CR0) 

001240 

MOV 

P0RT8, PTNBR ;« 

000000 

MOV 

#13,RMCS1(R0) 


.-VERIFY THAT THE DRIVE IS STILL 


CLR 

CKERR 

001126 

MOV 

RMDSCRO) .SBDDAT 

001122 

MOV 

fRMDS.SBDADR ;l 


ADD 

R0.S6DADR 


CLR 

SGDDAT 

001126 

CMP 

SGDDAT, SBDDAT 


BEQ 

66$ 


COMPLEMENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET ? 

BR IF THEY ARE 


;SELECT PORT B 

port address to LOCATION FOR TYPEOUT 
; ISSUE A RELEASE COMMAND THROUGH PORT B 


.-CLEAR THE 'CHECK ERROR' INDICATOR 
.-GET CONTENTS OF RMDS 
ORM REGISTER ADDRESS OF ERROR MESS* 
.-ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 

;BR IF OK 


SEO 0065 


czrnhao 

Til 
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015102 

015104 

015110 

015116 

015124 

015130 

015136 

015140 

015142 

015150 

015152 

015156 

015160 


015164 

015172 

015200 


015206 

015212 

015220 

015226 

015232 

015240 

015246 

015254 

015262 

015270 

015276 

015300 

015304 

015306 

015310 

015316 

015324 

015332 

015334 

015336 


104010 

005137 001250 


V • b • » vvvwvw 

060037 001122 
032737 020000 
001404 
104011 

012760 040000 
000240 

005737 001250 
001402 

000137 015724 


113760 

013737 

012760 


005037 

012737 

012737 

060037 

113760 

013737 

016037 

113760 

013737 

016037 

001404 

005737 

001401 

104031 

013737 

013737 

023737 

001401 

104027 

000240 




EMT 

10 



COM 

CKERR 

001126 

66$: 

MOV 

RMCS1 (RO) .S8DDAT 

001122 


MOV 

fRMCSI .SBDADR 


ADD 

RO.SBDADR 

001126 


BIT 

#HCPE.$BDDAT 



BEQ 

67$ 



EMT 

11 

000000 


MOV 

#TRE,RMCS1(R0) 


67$: 

NOP 




TST 

CKERR 



BEQ 

.♦6 



JMP 

IS 


001224 

001224 

000013 


001254 

111700 

000012 

001122 

001226 

001226 

000012 

001224 

001224 

000012 

001164 


001164 

001226 

001124 


000010 

001240 

000000 


001124 

001122 

000010 

001240 

001164 

000010 

001240 

001126 


001126 

001240 

001126 


015374 06^|7 


;SET THE REGISTER COMPARE ERROR INDICATOR 
;GET THE CONTENTS OF RMCS1 
.FORM ADDRESS OF REGISTER 
.-ADDRESS BASE 
;1S 'MCPE' SET ? 

;BR IF NOT 

.-CLEAR ‘MCPE 1 

.'WAS RMDS NON ZERO ? 

.'CONTENTS OF RMDS SEEN BY PORT B 
.•DRIVE IN NEUTRAL. BYPASS REST OF TEST 


.RELEASE THE DRIVE FROM PORT A 


MOVB PORTA, RMCS2CR0) ;SELECT PORT A 

MOV PORTA. PTNBR /MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMCS1(R0> .'ISSUE RELEASE THROUGH PORT A 

.VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 

RELERR .'CLEAR 'RELEASE ERROR' INDICATOR 

fATA.'MOL ! PGM ! DPR! DRY ! VV.JGDDAT /COMPARISON CONSTANT 
#RMDS.$BDADR /REGISTER ADDRESS INCREMENT 
R0.S8DADR /REGISTER BASE ADDRESS FOR TYPEOUT 

P0RTB.RMCS2(R0) /SELECT PORT B 

PORTS. PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO).*TMPO /READ STATUS REGISTER FROM PORT B 
PORTA, RMCS2CR0) /SELECT PORT A 

PORTA, PTNBR /MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0),$6DDAT /DRIVE STATUS FROM PORT k 
68$ zBR IF STATUS FROM PORT A ZERO 

STMPO /IS STATUS FROM PORT B ZERO ? 

68$ zBR IF ZERO 

31 

$TMP0.$8DDAT /CHECK STATUS FROM PORT B 

.-CHANGE PORT ADDRESS FOR TYPEOUT 

/COMPARE WITH CONSTANT 
/BR IF OK 


68 $: 


69$: 


CLR 

MOV 

MOV 

ADD 

MOVB 

MOV 

MOV 

MOVB 

MOV 

MOV 

BEQ 

TST 

BEQ 

EMT 

MOV 

MOV 

CMP 

BEQ 

EMT 

NOP 


PORTB.PTNBR 
$GDDAT,$8DDAT 
69$ 

27 


015340 113760 001226 000010 

015346 013737 001226 001240 
015354 012760 000013 000000 


015362 005037 001254 
015366 012737 000012 001122 


/RELEASE THE DRIVE FROM PORT B 

MOVB PORTS, RMCS2(R0) /SELECT PORT B 

MOV PORTB, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV #13,RMCSKR0> /ISSUE RELEASE THROUGH PORT B 

/VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


001122 
011700 001124 


015400 OIL - 

015406 113760 001224 000010 
015414 016037 000012 001170 


CLR 

MOV 

ADD 

MOV 

MOVB 

MOV 


/CLEAR THE 'RELEASE ERROR ' INDICATOR 
/FORM THE ADDRESS OF RMDS FOR TYPEOUT 
/ADD THE I/O BASE ADDRESS 
#MOL J PGM ! DPR ! DR Y? VV , $GDDAT /COMPARISON CONSTANT 
PORTA, RHCS2CR0) /SELECT PORT A. _ 

RMDS(RO) .STMP2 /GET THE DRIVE STATUS REGISTER FROM PORT A. 


RELERR 

#RMDS,$8DADR 
R0,$8DADR 


SEQ 0066 
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015422 

015430 

015436 

015444 

015452 

015460 

015466 

015474 

015502 

015510 

015512 

015516 

015520 

015522 

015526 

015534 

015542 

015550 

015554 

015556 

015564 

015572 

015600 

015604 

015606 

0156U 

015622 

015630 

015632 

015640 

015646 

015654 

015662 

015664 

015666 

015674 

015702 

015710 

015716 

015720 

015722 

015724 


042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


015722 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001170 
001164 
001164 
000010 
001172 
0011 ^? 
00116 , 
OOH66 
00 ‘6 


001126 

001240 

000010 


001240 

001126 

000010 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


BIC 

iPIP !WRL!0M.STNP2 

NOV 

STMP2.STNP0 

BIC 

#ATA!W,$TNP0 ; 

N0V8 

PORTS, RNCS2(R0) ; 

NOV 

RMDS(RO) ,$TNP3 ; 

BIC 

#PIP!WRL!0N.fTNP3 

NOV 

STNP3.STNP1 

BIC 

fATA! VV.STMP1 

CMP 

STNP0.STMP1 

BNE 

70* 

TST 

*TNP0 

BNE 

72$ 

ENT 

46 

JNP 

74$ 

NOV 

$TMP2,$BDDAT 

NOV 

PORTS, PTNBR 

M0V8 

PORTS. RMCS2IR0) 

TST 

STNPO 

BEQ 

71$ 

NOV 

PORTA, PTNBR 

MOV 

$TNP3,$BDDAT 

no ye 

PORTA. RNCS2IR0) 

TST 

$TNP1 

BNE 

72$ 

NOV 

#-1 .RELERR 

NOV 

m.RNCSKRO) 

NOV 

#13.RNCS1(R0> 

ENT 

26 

NOV 

$TNP2.$8DDAT 

NOV 

PORTA.PTNBR 

BIC 

#ATA.$6DDAT 

CMP 

$GDDAT,$8DDAT 

BEQ 

73* 

ENT 

7 

NOV 

$TNP3,$6DDAT 

NOV 

PORTB.PTNBR 

BIC 

#ATA.$BDDAT 

CMP 

$GDDAT,$BDDAT 

BEQ 

74$ 

ENT 

7 

NOP 

SCOPE 

4 


.'CLEAR DONT CARES 
COPY IT INTO 'JTflPO' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 
SELECT PORT B. 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

.•CLEAR DONT CARES 
COPY IT INTO '$TNP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SANE FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SANE: ARE THEY ZERO ? 

BR IF NOT 


SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

cei err pnDT D 

SEE IF STATUS’ EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA* FOR ERROR TYPE OUT 
cciFfT PORT A 

SEE IF STATUS'EQ ZERO FRON PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RNDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FRON PORT A. 

CHECK RNDS FOR BIT FAILURES - FRON PORT 8. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FRON PORT B. 

BR IF OK 


.'LOOP ? 


•ft************************************************************** 

•TEST 12 PORT 'A' RELEASE W/ERRORS TEST 

•VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 

• BITS ARE SET IN THE DRIVE. 

• A. SEIZE THE DRIVE THROUGH PORT 'A' V WRITING O'S INTO RNDS. 

• B. WRITE 1'S INTO RMER1 THROUGH PORT 'A*. 

• C. ISSUE A RELEASE COMMAND THROUGH PORT 'A'. VERIFY THAT THE ’GO' 

• BIT HAS RESET. THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL, AND 

• THAT RMER1 HAS NOT BEEN CLEARED. 


■4 
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SEO 0067 


015726 

015726 

015732 

015734 

015736 

015742 

015750 

015756 

015764 

015764 

015772 

015776 


005737 

001406 

100002 

000137 

012737 

012737 

012737 


112737 

012706 

012737 


001300 


003062 

177777 

015764 

015764 

000012 

001100 

000012 


001300 

001106 

001110 

001102 

001176 


0. CLEAR RMER1 BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT ’A*. 

E. ISSUE A RELEASE COMMAND THROUGH PORT 'A*. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TST12: 


TEST12: 


KYBCTL 

2S 

IS 

EXEC 

#-1 .KYBCTL 

#TEST12.SLPADR 

#TEST12,$LPERR 

#12.$TSTNN 
#STACK.SP 
#10. .STINES 


; PERFORMING ONLY SINGLE TEST ? 
*BR IF NOT 

;BR IF JUST ENTERED TEST 
.-RETURN t GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
.-SETUP SCOPE LOOP ADDRESS 
.-SETUP ERROR LOOP ADDRESS 

.-MOVE #12 TO TEST NUMBER 
;LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


.-CLEAR ATTENTION BITS FOR BOTH PORTS 


016004 

016012 

016016 

016024 

016032 

016040 

016044 

016052 


016060 

016066 

016074 

016100 


016106 

016114 

016122 

016126 

016134 

016142 

016146 

016154 

016162 

016170 

016176 

016200 

016206 

016214 

016222 

016224 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 

013737 

005060 

013737 


012760 

012760 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104025 

005137 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001224 

001224 

000012 

001226 


177777 

000013 

001250 

000000 

000000 

001122 

004012 

001126 

173765 

001124 

001126 

004012 

001174 

001250 


000010 

000000 

000000 

000010 

000000 

000000 


000010 

001242 

001244 


000014 

000000 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


MOVB 

CLR 

MOV 

MOV 

MOVB 

CLR 

MOV 

MOV 


PORTA. RMCS2(R0) .-SELECT PORT #A 


RMDS(RO) 

#11 .RMCS1 (RO) 
#13.RMCS1 (RO) 


.-SEIZE THE DRIVE 
.-ISSUE DRIVE CLEAR 
.-RELEASE THE DRIVE 


PORTB.RMCS2(RO> .SELECT PORT #B 


RMDS(RO) 

#11 .RMCS1 (RO) 
#13.RMCS1(R0) 


; SEIZE THE DRIVE THROUGH POR T 'B' 
.-ISSUE DRIVE CLEAR 
.-RELEASE THE DRIVE 


.-SEIZE THE DRIVE THROUGH PORT A 


MOVB 

NOV 

CLR 

MOV 

; FORCE AN ERROR 


PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA. SEIZPT .-STORE SEIZING PORT'S ADDRESS 

RMDS(RO) .-WRITE RMDS 

PORTS, OPPRT ; 'OPPOSITE' PORT ADDRESS 


#-1 .RMER1 (RO) ;SET ERROR BITS 

#13,RMCS1(P0> .-ISSUE A RELEASE COMMAND 

CKERR .'CLEAR THE 'CHECK ERROR* INDICATOR 

RMCS1 (RO).SBDDAT ;GET CONTENTS OF RMCS1 

#RMCS1 .SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 

R0.S8DADR .ADD RH/RM BASE ADDRESS 

#46l2,$GDDAT ;WHAT REGISTER SHOULD BE _ ^ 

SBDDAT.STMPO .-MOVE REGISTER CONTENTS TO 'STMPO' 

# A C401$.STMP0 .-SAVE SPECIFIED BITS 

SGDDAT.iTMPO .-COMPARE THE BITS 

$8DDAT.STNP4 -COPY^'BAD DATA' 

nrreour 

25 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


Ai 0068 


CZRNHAO RM8C DUAL PORT P'» MACRO V04.00 15-JAN-82 07:09:22 PA6E 9-31 
T12 PORT 'A* RELEASE y/ERRORS TEST 

016230 
016232 
016236 
016240 
016244 
016252 
016260 
016266 
016274 


0 6 


000240 


66S: 

NOP 


005737 

001250 


tst 

CKERR 

001002 



BNE 

.♦6 

000137 

016300 


JMP 

IS 

012760 

00004 C 

000010 

MOV 

#CLR,RNCS2(R0) 

113760 

001224 

000010 

MOVB 

PORTA, RMCS2(R0) 

013737 

001224 

001240 

MOV 

PORTA, PTNBR ;M 

012760 

000013 

000000 

MOV 

#13,RMCS1(R0) 

000137 

017044 


JMP 

2S 


;DID '60' BIT RESET ? 

;BR IF NOT 
;'60' BIT RESET 
;INIT THE RH/RM 
;SELECT PORT A 

)VE PORT ADDRESS TO LOCATION FOR Tt 
; RELEASE THE DRIVE THROUGH PORT A 
.-BYPASS THE REST OF THE TEST 


016300 

016300 

016306 

016314 

016320 

016326 

016334 

016340 

016344 

016352 

016354 

016356 

016362 

016364 

016372 

016400 

016404 

016412 

016420 

016424 

016432 

016440 

016442 

016444 

016450 


113760 

013737 

005037 

016037 

012737 

060037 

005037 

023737 

001403 

104024 

005137 

000240 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

023737 

001403 

104010 

005137 

000240 


016452 012760 


016463 

016466 

016474 


016502 

016506 

016514 

016520 

016526 

016534 

016542 


001226 

001226 

001250 

000012 

000012 

001122 

001124 

001124 


001250 

001224 

001224 

001250 

000014 

000014 

001122 

177777 

001124 


001250 


113760 

013737 

012760 


005037 

012737 

« 

113760 


000010 

001240 

001126 

001122 


001126 


000010 

001240 

001126 

001122 

001124 

001126 


001224 

001224 

000013 


.VERIFY THAT DRIVE IS STILL SEIZED BY PORT A 


IS: 


68S: 


HOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

CM P 

BEQ 

EMT 

COM 

NOP 

MOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

CMP 

BEO 

EMT 


PORTB,RMCS2(RO) .‘SELECT PORT B 

PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .’CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) .SBDDAT ;GET CONTENTS OF RMDS 

#RMDS,SBDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 

R0.S8DADR .’ADD RH/RM BASE ADDRESS 

SGDDAT ;UHAT REGISTER SHOULD BE 

SGDDAT. SBDDAT ;IS THE REGISTER OK ? 

;8R IF OK 


68S 
24 
CKERR 


.‘SET THE REGISTER COMPARE ERROR INDICATOR 


P0RTA,RMCS2(R0) .‘SELECT PORT A 

PORTA, PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .‘CLEAR THE 'CHECK ERROR* INDICATOR 

RMERKRO), SBDDAT .‘GET CONTENTS OF RMER1 
#RMER1,S8DADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 

.-ADD RH/RM BASE ADDRESS 

;UHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 

;BR IF OK 


RO.SBDADk 
#177777. SGDDAT 
SGDDAT. SBDDAT 
70S 
10 



COM 

70S: NOP 

CKERR 


.-CLEAR THE ERRORS THROUGH PORT < 

000000 

MOV 

#11 .RMCS1 (RO) 


.‘RELEASE THE 

DRIVE FROM PORT A 

000010 

MOVB 

PORTA. RMCS2(R0) 

001240 

MOV 

PORTA, PTNBR ;N 

000000 

MOV 

#13,RMCS1 (RO) 


.•VERIFY THAT 

THE DRIVE IS STILL 


001254 


CLR 

000012 

001122 

MOV 

OC1122 


ADD 

011700 

001124 

MOV 

001224 

000010 

MOVB 

000012 

001170 

MOV 

024001 

001170 

BIC 


.’SET THE REGISTER COMPARE ERROR INDICATOR 


.‘ISSUE A DRIVE CLEAR 


;SELECT PORT A 

)V§ PORT ADDRESS TO LOCATION FC 
.•ISSUE RELEASE THROUGH PORT A 


.•CLEAR THE 'RELEASE ERROR ' INDICATOR 
.•FORM THE ADDRESS OF RMDS FOR TYPEOUT 

„ ;ADD THE I/O BASE ADDRESS 

#MOL ! PGM! DPR! DRY !VV, SGDDAT ; COMPARISON CONSTANT 
PORTA, RMCS2(R0) .‘SELECT PORT A. 

RNDS,'R0),$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP ! URL !OM.STMP$ .‘CLEAR DONT CARES 


RELERR 
#RMDS,SBDADR 
RO.SBDADR 


SEQ 006V 


iZRNHAO RM30 DUAL PORT PH MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-j| 
T 1 2 PORT 'A* RELEASE y/f.RRORS TEST 


016550 

0165J6 

016564 

016572 

016600 

016606 

016614 

016622 

016650 

016632 

016656 

016640 

016642 

016646 

016654 

016662 

016670 

016674 

016676 

016704 

016712 

016720 

016724 

016726 

016734 

016742 

016750 

016752 

016760 

016766 

016774 

017002 

017004 

017006 

017014 

017022 

017030 

017036 

017040 

017042 

017044 


013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


017042 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


MOV 

BIC 

M0V8 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

M0V8 

TST 

BEQ 

MOV 

MOV 

MOVB 

TST 

BNE 

MOV 

MOV 

MOV 

EMT 

MOV 

MOV 

BIC 

CMP 

BEQ 

EMT 

MOV 

MOV 

BIC 

CMP 

BEQ 

EMT 

NOP 

SCOPE 


STNP2.STMP0 ;COPY IT INTO , STMPO' 

#ATA.'W,$TMPO ;ClEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS ,RMCS2(R0) ; SELECT PORT B. 

RMDS(RO) f ST MP3 ;6ET THE DRIVE STATUS REGISTER FROM PORT B 
#PIP!WRL!0M.$TMP3 .‘CLEAR DONT CARES 


$TMP3.$TNP1 

#ATA!W,$TMP1 

$TMP0.$TMP1 

72$ 

STMPO 

74$ 

46 

76$ 

$TMP2.$BDDAT 
PORTS, PTNBR 
PORTS, RMCS2CR0) 
$TMPO 
73$ 

PORTA. PTNBR 

$TMP3,$8DDAT 

PORTA, RMCS2(R0) 

$TMP1 

74$ 

#-1 .RcLERR 
#11 ,RMCS1 (RO) 
#13.RMCS1(R0) 
26 

$TMP2,$8DDAT 
PORTA, PTNBR 
#ATA.$8DDAT 
$GDDAT,$8DDAT 
75$ 

7 

$TMP3.$BDDAT 
PORTS .PTNBR 
#ATA,$6DDAT 
$GDDAT,$6DDAT 
76$ 

7 


COPY IT INTO *$TMPr 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR I F NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZ1N6 PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET ‘RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON’T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK PMDS FOR BIT FAILURES - FROM PORT 8. 

CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 


.‘LOOP ? 


.-•TEST 13 PORT 'B* RELEASE W/ERRORS TEST 

; ‘VERIFY THAT A RELEASE COMMAND PERFORMS NO ACTION IF ISSUED WHEN ERROR 
;‘ BITS ARE SET IN THE DRIVE. 

• * 


BITS ARE SET IN THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT *8’ BY WRITING O'S INTO RMDS. 


;‘ B. WRITE I'S INTO RMER1 THROUGH PORT ‘B’. 

C. ISSUE A RELEASE COMMAND THROUGH PORT '8*. VERIFY THAT THE 'GO* 
;* BIT HAS RESET, THAT THE DRIVE HAS NOT RETURNED TO NEUTRAL. AND 
;* THAT RMER1 HAS NOT BEEN CLEARED. 


SEO 0070 


Ct'RNhAO 

T13 


546 

547 


R*80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-33 
PORT *8' RELEASE W/ERRORS TEST 


f 6 


017046 

017U46 

017052 

017054 

017056 

017062 

017070 

017076 

017104 

017104 

017112 

017116 


005737 001300 
001406 
100002 
000137 
012737 177 

012737 01 7 104 001106 
012737 017104 001110 

112737 000013 001102 
012706 001100 
012737 000012 001176 


• D. CLEAR RflERI BY ISSUING A DRIVE CLEAR COMMAND THROUGH PORT *8'. 

ROUGH PORT '8'. VERIFY THAT THE DRIVE 


.‘PERFORMING ONLY SINGLE TEST ? 
'B^t IF NOT 

;BR IF JUST ENTERED TEST 
.•RETURN t GET NEXT TEST NUMBER 
;SE<* SINGLE TEST INDICATOR 
.'SETUP SCOPE LOOP ADDRESS 
.•SETUP ERROR LOOP ADDRESS 

.•MOVE #13 TO TEST NUMBER 
.•LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


;* E. 

ISSUE 

A RELEASE COMMAND 

;* 

;* 

RETURNED TO NEUTRAL AND 

TST13: 

TST 

KY8CTL 


BEQ 

2S 


BPL 

IS 


JMP 

EXEC 

IS: 

NOV 

#-1 .KYBCTL 

2$: 

NOV 

#TEST13,SLPADR 

MOV 

#TEST13.5LPERR 

TEST13: 

MOVB 

#13,STSTNH 


MOV 

#STACK.SP 


MOV 

#10. .STIMES 


.•CLEAR ATTENTION BITS FOR BOTH PORTS 


017124 

017132 

017136 

017144 

017152 

017160 

017164 

017172 


017200 

017206 

017214 

017220 


01 7226 
017234 
017242 
017246 
017254 
017262 
01 7266 
017274 
017302 
017310 
017316 
017320 
017326 
017334 
017342 
017344 
017350 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 

013737 

005060 

013737 


012760 

012760 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104025 

005137 

000240 


001224 

000012 

000011 

OOOC13 

001226 

000012 

000011 

000013 


001226 

001226 

000012 

001224 


177777 

000013 

001250 

000000 

000000 

001122 

004012 

001126 

173765 

001124 

001126 

004012 

001174 

001250 


000010 

000000 

000000 

000010 

000000 

000000 


000010 

001242 

001244 


000014 

000000 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


MOVB 

CLR 

MOV 

MOV 

MOVB 

CLR 

MOV 

MOV 


PORTA. RMCS2(R0) .‘SELECT PORT #A 


RMDS(RO) 

#11 .RMCS1 (RO) 
#13.RMCS1 (RO) 
PORTS, RMCS2CR0) 
RMDS(RO) 

#11 .RMCS1 (RO) 
#13.RMCS1 (RO) 


.•SEIZE THE DRIVE 
; ISSUE DRIVE CLEAR 
.•RELEASE THE DRIVE 
.•SELECT PORT #B 

.’SEIZE THE DRIVE THROUGH PORT 'B' 
.‘ISSUE DRIVE CLEAR 
.•RELEASE THE DRIVE 


.■SEIZE THE DRIVE THROUGH PORT 8 


MOVB 
MOV 
CLR 
MOV 

.•FORCE AN ERROR 

MOV 
MOV 
CLR 
MOV 
MOV 
ADD 
MPV 
MOV 
BIC 
CMP 
BEQ 
MOV 
BIC 
BIS 
EMT 
COM 

66$: NOP 


PORTB.RMCS2(R0) .‘SELECT PORT B 

PORTS, SEIZPT ; STORE SEIZING PORT'S ADDRESS 

RMDS(RO) .write rmds 

PORTA.OPPRT .-'OPPOSITE' PORT ADDRESS 


#-1 .RMER1 (RO) .‘SET ERROR BITS 
#13,RMCS1 (RO) .‘ISSUE A RELEASE COMMAND 
CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMCS1 (RO) .SBDDAT ;GET CONTENTS OF RMCS1 
ARMCS1,$86ADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 

;ADD RH/RM BASE ADDRESS 

;WHAT REGISTER SHOULD BE 
.•MOVE REGISTER CONTENTS TO 'STMPO' 
;SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;BR IF OK 
,’COPY 'BAD DATA' 

; CLEAR THE MASKED BITS 
.-'OR' WITH GOOD DATA FOR TYPEOUT 


RO.SBDADR 
#4012,SGDDAT 
SBDDAT .STMPO 
#*C40l2. STMPO 
SGDDAT, STMPO 
66S 

S8DDAT.STMP4 

#4012,STMP4 

STMP4.SGDDAT 

25 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


SEQ 0071 
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T13 PORT *8' RELEASE W/ERRORS TEST 

017352 005737 001250 TST CKERR ;DID ’GO* BIT RESET ? 

017356 001002 BNE .+6 ;8R IF NOT 

017360 000137 017420 JNP IS ;'G0’ BIT RESET 

017364 012760 000040 000010 NOV #CLR.RNCS2(R0) ;INIT THE RH/RM 

017372 113760 001226 000010 N0V8 PORTB.RMCS2CRO) ;SELECT PORT B 

017400 013737 001226 001240 NOV PORTS. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

017406 012760 000013 000000 MOV #13.RNCS1 (RO) .-RELEASE THE DRIVE THROUGH PORT B 

017414 000137 020164 JHP 2$ .-BYPASS THE REST OF THE TEST 

.-VERIFY THAT DRIVE IS STILL SEIZED BY PORT B 


017420 

017420 

017426 

017434 

017440 

017446 

017454 

017460 

017464 

017472 

017474 

017476 

017502 

017504 

017512 

017520 

017524 

017532 

017540 

017544 

017552 

017560 

017562 

017564 

017570 


113760 

013737 

005037 

016037 

012737 

060037 

005037 

023737 

001403 

104024 

005137 

000240 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

023737 

001403 

104010 

005137 

000240 


001224 

001224 

001250 

000012 

000012 

001122 

001124 

001124 


001250 

001226 

001226 

001250 

000014 

000014 

001122 

177777 

001124 


001250 


000010 

001240 

001126 

001122 


001126 


000010 

001240 

001126 

001122 

001124 

001126 


017572 012760 000011 000000 


017600 

017606 

017614 


113760 

013737 

012760 


001226 

001226 

000013 


000010 

001240 

000000 


017622 

017626 

017634 

017640 

017646 

017654 


005037 

012737 

m 

113760 

016037 

042737 

013737 


001254 

000012 

001122 

011700 

001224 


001122 

001124 

000010 

001170 

001170 

001164 


N0V8 PORTA, RHCS2(R0) .-SELECT PORT A 

MOV PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CLR CKERR .-CLEAR THE ’CHECK ERROR* INDICATOR 

MOV RMDS(RO) .SBDDAT ;GET CONTENTS OF RMDS 

MOV #RMDS, SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 

ADD R0.S8DADR ;ADD RH/RM BASE ADDRESS 

CLR SGDDAT ;WHAT REGISTER SHOULD BE 

CMP SGDDAT, SBDDAT ;J$ THE REGISTER OK ? 

BEO 68S ;8R IF OK 

EMT 24 

COM CKERR .‘SET THE REGISTER COMPARE ERROR INDICATOR 

68$: NOP 

MOVB PORTS, RNCS2CR0) ;SELECT PORT 8 

MOV PORTB, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CLR CKERR .‘CLEAR THE 'CHECK ERROR 1 INDICATOR 

MOV RMERKRO), SBDDAT .‘GET CONTENTS OF RMER1 

NOV #RMER1 .SBDADR jFORM REGISTER ADDRESS OF ERROR MESSAGE 

ADD R0.S6DADR ;ADD RH/RM BASE ADDRESS 

MOV #177777, SGDDAT ;WHAT REGISTER SHOULD BE 

CMP SGDDAT, SBDDAT ,*IS THE REGISTER OK ? 

BEO 70S ;BR IF OK 

EMT 10 

COM CKERR .-SET THE REGISTER COMPARE ERROR INDICATOR 

70S: NOP 

.’CLEAR THE ERRORS THROUGH PORT B 

MOV #11,RMCS1 (RO) .-ISSUE A DRIVE CLEAR 

; RELEASE THE DRIVE FROM PORT B 

MOVB PORT8,RNCS2(RO) ; SELECT PORT B 

MOV PORTB.PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV #13,RNCS1 (RO) .‘ISSUE RELEASE THROUGH PORT B 

.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR .‘CLEAR THE ’RELEASE ERROR ’ INDICATOR 

MOV fRMDS, SBDADR .FORM THE ADDRESS OF RMDS FOR TYPEOUT 

ADD RO, SBDADR ;ADD THE I/O BASE ADDRESS 

MOV #MOL ! PGM !DPR! DR yIw, SGDDAT .‘COMPARISON CONSTANT 

MOVB PORTA,RMCS2(RO> ; SELECT PORT A. 

MOV RMDS(R0).STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 

BIC #PIP J URL !0M,STMP2 .‘CLEAR DONT CARES 

MOV STMP2.STMP0 .‘COPY IT INTO ’STMPO’ 


CZk 

T 1 3 
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PORT ’8* RELEASE W/ERRORS TEST 


SEQ 0072 



017676 

04:737 

100100 

001164 


8IC 

017704 

113760 

001226 

000010 


Move 

017712 

016037 

000012 

001172 


MOV 

017720 

042737 

024001 

001172 


B1C 

01 17 f 6 

013737 

001172 

001166 


MOV 

017754 

042737 

100100 

001166 


BIC 

017742 

023737 

001164 

001166 


CMP 

017750 

001006 




6NE 

01775? 

005737 

001164 



TST 

017756 

001045 




3NE 

017760 

104046 




EMT 

01 7762 

000137 

020162 



JMP 

017766 

013737 

001170 

001126 

72$: 

MOV 

017774 

013737 

001226 

001240 


MOV 

020002 

113760 

001226 

000010 


movb 

020010 

005737 

001164 



TST 

020014 

001414 




BEQ 

020016 

013737 

001224 

001240 


MOV 

020024 

013737 

001172 

001126 


MOV 

020032 

113760 

001224 

000010 


MOVB 

02004G 

005737 

001166 



TST 

020044 

001012 



73$: 

BNE 

020046 

012737 

177777 

001254 

MOV 

020054 

012760 

000011 

000000 


MOV 

020062 

012760 

000013 

000000 


MOV 

020070 

104026 




EMT 

020072 

013737 

001170 

001126 

74$: 

MOV 

020100 

013737 

001224 

001240 


MOV 

020106 

042737 

100000 

001126 


BIC 

020114 

023737 

001124 

001126 


CMP 

020122 

001401 




BEQ 

020124 

104007 




EMT 

020126 

013737 

001172 

001126 

75$: 

MOV 

020134 

013737 

001226 

001240 


MOV 

020142 

042737 

100000 

001126 


BIC 

020150 

023737 

001124 

001126 


CMP 

020156 

001401 




BEQ 

020160 

020162 

104007 




EMT 

000240 



76$: 

NOP 

020164 

000004 



2$: 

SCOPE 


#ATA!VV,$THPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS. RNCS2(RO) .'SELECT PORT B. 

RMDS(RO) f $THP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL!OM.$TMPS .'CLEAR DONT CARES 


$TMP3.$TMP1 
#ATA!VV,$TMP1 
$TMPO,$TMP1 
72$ 

STMPO 

74$ 

46 

76$ 

STMP2.S8DDAT 
PORTS, PTNBR 
PORTS. RNCS2CR0) 
STMPO 
73$ 

PORTA, PTNBR 

$TMP3,$8DDAT 

PORTA, RHCS2(R0> 

STMP1 

74$ 

*-1 .RELERR 
fll.RNCSKRO) 
#13,RMCS1 (RO) 

26 

$TnP2,$6DDAT 
PORTA, PTNBR 
fATA.SBDDAT 
$GDDAT,$8DDAT 
75$ 

7 

$TMP3.SBDDAT 
PORTS, PTNBR 
#ATA,$8DDAT 
$€DDAT,$BDDAT 
76$ 

7 


COPY IT INTO ’STMP1 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 


OF THE CHECKS 

BAD DATA FOR ERROR MESSAGE 

TEST SHOWS DRIVE NOT IN NEUTRAL 


BYPASS THE RE*T 
SET UP POSSIBLE 
SEIZING PORT IF 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 


.'LOOP ? 


•TEST 14 PORT ’A* SEIZE AND CLEAR TEST 

•VERIFY THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 

• PORT TO RELEASE THE DRIVE. 

• A. SEIZE THE DRIVE BY WRITIN6 0’S INTO RMDS THROUGH PORT ’A’. 

• VERIFY THAT THE DRIVE HAS BEEN SEIZED. 

• B. ISSUE A DRIVE CLEAR THROUGH PORT 'A* AND VERIFY THAT THE DRIVE 

• DOES NOT RETURN TO NEUTRAL. 

• C. ISSUE A KASSSUS CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE 

• DOES NOT RETURN TO NEUTRAL. 



SEO 0073 


CZRNHAO RH80 DUAL PORT PH MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-36 
TH PORT 'A* SEIZE AND CLEAR TEST 


569 

599 


020166 

020166 

020172 

020.74 

020176 

020202 

020210 

020216 

020224 

020224 

020232 

020236 


020244 

020252 

020260 

020264 

020272 

020300 

020306 

020314 

020320 

020326 

020332 

020340 

020342 

020344 

020350 

020350 

020356 

020364 

020372 

02CP 

02 " 

02 Al- 

ia 1 

?<H26 
?0434 
020442 
020444 
020446 


D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


• * 


TST14: 


005737 

001300 


TST 

KYBCTL 

; PERFORMING ONLY SINGLE TEST ? 

001406 



BEQ 

2$ 

;8R IF NOT 

100002 



BPL 

1$ 

,-BR IF JUST ENTERED TEST 

000137 

003062 


JNP 

EXEC 

.-RETURN $ GET NEXT TEST NUNBER 

012737 

177777 

001300 

1$: NOV 

#-1 .KYBCTL 

.-SET SINGLE TEST INDICATOR 

012737 

020224 

001106 

2$: NOV 

#TEST14.$LPADR 

; SETUP SCOPE LOOP ADDRESS 

012737 

020224 

001110 

NOV 

#TEST14,SLPERR 

.-SETUP ERROR LOOP ADDRESS 




TEST14: 



112737 

000014 

001102 

N0V8 

#14,STSTNN 

.-NOVE #14 TO TEST NUNBER 

012706 

001100 


NOV 

fSTACK.SP 

.-LOAD THE STACK POINTER 

012737 

000012 

001176 

NOV 

#10., STINES 

;.*D0 10. ITERATIONS 


; SEIZE THE DRIVE THROUGH PORT A 


113760 

013737 

005060 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 

113760 

013737 

016037 

042737 

m 

005137 

013737 

043737 

023737 

001401 

104005 

000240 


001224 

001224 

000012 

001226 

001226 

001226 

000012 

001122 

000012 

001124 

001124 


021564 

001224 
001224 
000012 
020001 
01 1 700 
001124 
001166 
001126 
001166 
001124 


000010 

001242 

000010 

001240 

001244 

001126 

001122 

001126 


000010 

001240 

001126 

001126 

001124 

001166 

001164 
001164 
C011 64 


64$: 


65$: 


NOVB 

NOV 

CLR 

NOVB 

MOV 

NOV 

NOV 

NOV 

ADD 

CLR 

CNP 

BEQ 

ENT 

JNP 

NOVB 

NOV 

NOV 

BIC 

NOV 

NOV 

CON 

NOV 

BIC 

CNP 

BEQ 

ENT 

NOP 


PORTA, RNCS2(R0> .-SELECT PORT A 
P0RTA.SE1ZPT .-STORE SEIZING PORT'S ADDRESS 
RNDS(RO> .WRITE RNDS 

PORTS. RNCS2(R0) .-SELECT PORT B 
PORTS, PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTS, OPPRT 


OPPOSITE' PORT ADDRESS 


RNDS(RO) ,$8DDAT .-SEE IF DRIVE SEIZED BY PORT A 


R0.$8DADR 
#RNDS,$BDADR 
SGDDAT 

SGDDAT,$BDDAT 

64$ 

4 

1 $ 


,-RH/RN BASE ADDRESS 
.-GENERATE BAD REGISTER ADDRESS 
.-RE6ISTER SHOULD BE ZERO 
.-IS THE REGISTER ZERO 
;BR IF IT IS 

.-BYPASS REST OF THE SUBTEST 


PORTA, RHCS2CR0) .SELECT PORT A 

PORTA.PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RNDS (R0> .S8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#0N!PIP.$6DDAT .-CLEAR DONT CARE BITS 

#NOL ! PGN ! DPR ! DRY i VV , SGDDAT .-EXPECTED STATUS 
SGDDAT, STNP1 ;USE GOOD DATA AS A NASK 


STNP1 
S8DDAT. STNPO 
STNP1 .STNPO 
SGDDAT, STNPO 
65$ 

5 


CONPLENENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET ? 

BR IF THEY ARE 


020450 012760 000011 000000 


020456 113760 001226 000010 
020464 013737 001226 001240 


.-DRIVE CLEAR THROUGH PORT A FIRST 

NOV #11,RHCS1(R0> .-ISSUE DRIVE CLEAP THR0U6H PORT A 
.-VERIFY THAT DRIVE STILL SEIZED BY PORT A 

NOVB PORTS, RNCS2(R0) ;SELECT PORT 6 

NOV P0RTB.PTN8R ;NOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 


CZR^mAo 

T14 
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SEQ 0074 


020472 

020*76 

020504 

020512 

020516 

020522 

020550 

020556 

020544 

020546 

020554 

020562 

020570 

020572 

020576 

020600 

020606 

C20614 

0?0620 

020626 

020634 

020640 

020646 

020654 

020662 

020670 

020672 

020700 

020706 

020714 

020716 

020722 


005037 

001250 



CLR 

016037 

000012 

001126 


MOV 

012737 

00001? 

001122 


MOV 

060037 

001122 



ADD 

005037 

001124 



CLR 

013737 

001126 

001164 


MOV 

042737 

100000 

001164 


BIC 

023737 

001124 

001164 


CMP 

001414 




BEQ 

013737 

001126 

001174 


MOV 

042737 

077777 

001174 


BIC 

053737 

001174 

001124 


BIS 

104033 




EMT 

005137 

001250 



COM 

000240 



66$: 

NOP 

113760 

001224 

000010 


M0V8 

013737 

001224 

0C1240 


MOV 

005037 

001250 



CLR 

016037 

000012 

001126 


MOV 

012737 

000012 

001122 


MOV 

060037 

001122 



ADD 

012737 

011700 

001124 


MOV 

013737 

001126 

001164 


MOV 

042737 

100000 

001164 


31 C 

023737 

001124 

001164 


CMP 

001414 




BEQ 

013737 

001126 

001174 


MOV 

042737 

077777 

001174 


3IC 

053737 

001174 

001124 


BIS 

104033 




EMT 

005137 

001250 



COM 

000240 



68$: 

NOP 


020732 

020740 

020746 

02075? 

020760 

020766 

020772 

020776 

021004 

021012 

021020 

021022 

021030 

021036 

021044 

021046 

021052 

021054 


CKERR 
RMDS(RO) , SBDDAT 
ffWS.SBDADA 
RO, Sflt) ADR 
SGDDAT 

SBDDAT.STMPO 
#*C77777. STMPO 
SGDDAT. STMPO 
66$ 

SBDDAT, STMP4 
#77777,STMP4 
STMP4, SGDDAT 
33 

CKERR 


.•CLEAR THE 'CHECK ERROR' INDICATOR 
.GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO 'STMPO' 

SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA' 

CLEAR THE MASKED BITS 
'OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 


PORTA. RMCS2CR0) ;SELECT PORT A 

PORTA, PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$8DDAT ;GET CONTENTS OF RMDS 
#RMDS.$8DADR ,-FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR ;ADD RH/RM BASE ADDRESS 

#MOL ! PGM ! DPR ! DRY ! VV .SGDDAT ;WHAT REGISTER SHOULD BE 
SBDDAT.STMPO .-MOVE REGISTER CONTENTS TO *$TMPO' 

# A C77777, STMPO .-SAVE SPECIFIED BITS 

.-COMPARE THE BITS 

;BR IF OK 
.-COPY ’BAD DATA' 

.-CLEAR THE MASKED BITS 
.-’OR' WITH GOOD DATA FOR TYPEOUT 


SGDDAT, STMPO 
68$ 

S8DDAT.STMP4 
#77777, STMP4 
STMP4. SGDDAT 
33 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


.-NOW ISSUE MASS8US INIT 


113760 
013737 
005 037 
016037 
012737 
060037 
005037 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104034 
005137 
000240 
113760 


000040 

000010 


MOV 



; CONFIRM THAT 

001226 

000010 


M0V8 

001226 

001240 


MOV 

001250 



CLR 

000012 

001126 


MOV 

000012 

001122 


MOV 

001122 



ADD 

001124 



CLR 

001126 

001164 


MOV 

100000 

001164 


BIC 

001124 

001164 


CMP 




BEQ 

001126 

001174 


MOV 

077777 

001174 


BIC 

001174 

001124 


BIS 




EMT 

001250 



COM 



70S: 

NOP 

001224 

000010 


MOVB 


#CLR,RMCS2(R0) ; ISSUE MASS8US INIT 


PORTS, RMCS2CR0) .-SELECT PORT B 

PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CLEAR THE ’CHECK ERROR' INDICATOR 

RMDS(RO) .SBDDAT ; GET CONTENTS OF RMDS 
#RMDS,$BOADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 


R0.S8DADR 
SGDDAT 
SBDDAT.STMPO 
# A C777?7, STMPO 
SGDDAT, STMPO 
70S 

SBDDAT, STMP4 
#77777.$TMP4 
STMP4. SGDDAT 
34 

CKERR 


ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO ’STMPO' 

SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA* 

CLEAR THE MASKED BITS 

’OR’ WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 


PORTA.RMCS2(RO) .-SELECT PORT A 



SEQ Gv/. 
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021062 

021070 

021074 

02110 ? 

021110 

021114 

021122 

021130 

021136 

021144 

021146 

021154 

021162 

021170 

021172 

021176 


021200 

021206 

021214 


021222 

021226 

021234 

021240 

021246 

021254 

021262 

021270 

021276 

021304 

021312 

021320 

021326 

021334 

021342 

021350 

021352 

021356 

021360 

021362 

021366 

021374 

021402 

021410 

021414 

021416 

021424 

021432 

021440 

021444 

021446 

021454 


013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104034 

005137 

000240 


113760 

013737 

012760 


005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001045 
104046 
0001 37 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
113760 
005737 
001012 
012737 
012760 


001224 

001250 

000012 

000012 

001122 

011700 

001126 

100000 

001124 

001126 

077777 

001174 

001250 


001224 

001224 

000013 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


021562 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 


001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


000010 

001240 

000000 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


001254 

000000 


PORTA.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO).$BDDAT ;GET CONTENTS OF RNDS 
#RMDS,$BDADR ;F ORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR ;ADD RH/RM BASE ADDRESS 

#M0L!PGN!DPR!DRY!W.$6DDAT ;UHAT REGISTER SHOULD BE 
S8DDAT.STMP0 .-MOVE REGISTER CONTENTS 10 *$TMPO' 

#*C777?7,$THP0 .SAVE SPECIFIED BITS 

$GDDAT,$TMPO .COMPARE THE BITS 

72$ ’BR IF OK 

S8DDAT.STMP4 -COPY 'BAD DATA' 

*77777. $TMP4 .-CLEAR THE MASKED BITS 

STMP4.SGDDAT ;'0R’ WITH GOOD DATA FOR TYPEOUT 

34 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


.-RELEASE THE DRIVE FROM PORT A 


PORTA. RMCS2(R0) .-SELECT PORT A 

PORTA.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RHCS1 (RO) .‘ISSUE RELEASE THROUGH PORT A 


.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR 

MOV 

ADD 

MOV 

MOVB 

MOV 

BIC 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOVB 

TST 

BEO 

MOV 

MOV 

MOVB 

TST 

BNE 

MOV 

MOV 


RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS.$6DADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR .-ADD THE I/O BASE ADDRESS 

fMOL ! PGM ! DPR ! DR Y ! VV .SGDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2(R0) .-SELECT PORT A. 

RMDS(RO) ,$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
MP1P! WRLJ0M.STMP2 .-CLEAR DONT CARES 

STMP2.STNP0 .-COPY IT tNTO 'STMPO' 

#ATA! VV.STMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTS. RMCS2(R0) .-SELECT PORT B. 

RMDS(R0),$THP3 ; GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP! WRL:0M,$TMP3 .-CLEAR DONT CARES 


STMP3.STMP1 
#ATA.'VV,$TMP1 
STMPO, STMP1 
74$ 

STMPO 

76$ 

46 

78$ 

STMP2.SBDDAT 
PORTB.PTNBR 
PORTS, RMCS2(R0) 
STMPO 

75$ 

PORTA.PTNBR 

STMP3.S6DDAT 

PORTA, RHCS2CR0) 

STMP1 

76$ 

#-1 .RELERR 
fll.RMCSKRO) 


COPY IT INTO *$TMP1 * 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
’BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 


CZKNHAO 

T14 


600 

619 

620 
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021462 
021470 
021472 
021300 
021506 
021514 
021522 
021524 
021526 
021534 
021542 
021550 
021556 
021560 
021562 
021 564 


012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


000013 

000000 


NOV 

ENT 

NOV 

#13.RMCS1(R0> 

26 

$TNP2,$8DDAT 

001170 

001126 

76J: 

001224 

001240 


NOV 

PORTA.PTNBR 

#ATA,$8DDAT 

100000 

001126 


81 C 

001124 

001126 


CNP 

SGDDAT.SBDDAT 



BEQ 

77$ 




ENT 

7 

001172 

001226 

001126 

7, J: 

NOV 

$TNP3,$BDDAT 

001240 


NOV 

PORTS, PTNBR 

100000 

001126 


BIC 

#ATA,SBDDAT 

001124 

001126 


CNP 

$GDDAT,$8DDAT 


BEQ 

78$ 




ENT 

7 



78$: 

NOP 




1$: 

SCOPE 



RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON’T CHECK THE ATTN BIT 
AU BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RNDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON’T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 


.-LOOP ? 


021566 

021566 

021572 

021574 

021576 

021602 

021610 

021616 

021624 

021624 

021632 

021636 


021644 

021652 

021660 

021664 


•TEST 15 PORT ’B’ SEIZE AND CLEAR TEST 

•VERIFY THAT A MASS8US CLEAR OR DRIVE CLEAR WILL NOT CAUSE THE SEIZING 

* PORT TO RELEASE THE DRIVE. 

* A. SEIZE THE DRIVE BY WRITING O’S INTO RMDS THROUGH PORT ’8’. 

* VERIFY THAT THE DRIVE HAS BEEN SEIZED. 

* B. ISSUE A DRIVE CLEAR THROUGH PORT ’B’ AND VERIFY THAT THE DRIVE 

* DOES NOT RETURN TO NEUTRAL. 

* C. ISSUE A MASS8US CLEAR THROUGH THE RH/RM AND VERIFY THAT THE DRIVE 

* DOES NOT RETURN TO NEUTRAL. 

* D. RELEASE THE DRIVE THROUGH PORT ’8’. VERIFY THAT THE DRIVE 

* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


* 





TST15: 



003737 

001300 


TST 

KY8CTL 

; PERFORMING ONLY SIN6LE TEST ? 

001406 



BEQ 

2$ 

;BR IF NOT 

100002 



8PL 

1$ 

;BR IF JUST ENTERED TEST 

000137 

003062 


JMP 

EXEC 

; RETURN & GET NEXT TEST NUMBER 

012737 

177777 

001300 

1$: NOV 

#-1 .KYBCTL 

.-SET SINGLE TEST INDICATOR 

012737 

021624 

001106 

2$: NOV 

#TEST15,$LPADR 

.‘SETUP SCOPE LOOP ADDRESS 

012737 

021624 

001110 

NOV 

#TEST15,$LPERR 

.‘SETUP ERROR LOOP ADDRESS 




TESTIS: 



112737 

000015 

001102 

NOVB 

#15,$TSTNN 

.•MOVE #15 TO TEST NUMBER 

012706 

001100 


NOV 

# STACK, SP 

.-LOAD THE STACK POINTER 

012737 

000012 

001176 

NOV 

# 10., STINES 

;;D0 10. ITERATIONS 


.SEIZE THE DRIVE THROUGH PORT 8 


113760 

001226 

000010 

NOVB 

013737 

001226 

001242 

MOV 

005060 

000012 


CLR 

113760 

001224 

000010 

NOVB 


PORTS, RNCS2CR0) .‘SELECT PORT 8 
PORTS, SEIZPT .‘STORE SEIZING PORT’S ADDRESS 
RMDS(RO) .-WRITE RHDS 

PORTA. RHCS2(R0) .‘SELECT PORT A 
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seo o or 


021672 
021700 
021706 
021714 
021720 
021726 
021 732 
021740 
021742 
021744 
021750 
021750 
021756 
021764 
021772 
022000 
022006 
022014 
022020 
022026 
022034 
022042 
022044 
022046 


022056 

022064 

022072 

022076 

022104 

022112 

022116 

022122 

022130 

022136 

022144 

022146 

022154 

022162 

022170 

022172 

022176 

022200 

022206 

022214 

022220 

022226 

022234 

022240 

022246 

022254 


013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 

11 3760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001401 
104005 
000240 


001224 

001224 

000012 

001122 

000012 

001124 

001124 


023164 

001226 

001226 

000012 

020001 

011700 

001124 

001166 

001126 

001166 

001124 


113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104033 

005137 

000240 

113760 

013737 

005037 

016037 

012737 


001240 

001244 

001126 

001122 

001126 


000010 

001240 

001126 

001126 

001124 

001166 

001164 

001164 

001164 


022050 012760 000011 000000 


042737 


001224 

001224 

001250 

000012 

000012 

001122 

001124 

001126 

100000 

001124 

001126 

077777 

001174 

001250 

001226 

001226 

001250 

000012 

000012 

001122 

011700 

001126 


000010 

001240 

001126 
C011 22 


001164 

001164 

001164 

001174 

001174 

001124 


000010 

001240 

001126 

001122 

001124 

001164 

001164 


PORTA, PTNBR ;M 

PORTA, OPPRT 

RMDS(RO),SBDDAT 

R0,S8DADR 

#RMDS,S8DADR 

SGDDAT 

SGDDAT, SBDDAT 
64$ 

4 

IS 


.MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
; 'OPPOSITE' PORT ADDRESS 
AT ;SEE IF DRIVE SEIZED BY PORT B 
;RH/RM BASE ADDRESS 
.•GENERATE BAD REGISTER ADDRESS 
.•REGISTER SHOULD BE ZERO 
;IS THE REGISTER ZERO 
;BR IF IT IS 

.-BYPASS REST OF THE SUBTEST 


PORTS. RMCS2CR0) ;SELECT PORT B 

PORTS, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS (RO) .SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#OM!PIP, SBDDAT .-CLEAR DONT CARE BITS 

#MOL ! PGM ! DPR ! DRV ! VV, SGDDAT .-EXPECTED STATUS 
SGDDAT, STMP1 .-USE GOOD DATA AS A MASK 


STMP1 

SBDDAT. STMPO 
STMP1 .STMPO 
SGDDAT. STMPO 
65S 
5 


COMPLEMENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED ©ITS 

ARE THE EaPFCTCD STATUS BITS SET ? 

BR IF THEY ARF 


.-DRIVE CLEAR THROUGH PORT B FIRST 


JMI.RMCSI (RO) ; ISSUE DRIVE CLEAR THROUGH PORT B 


.-VERIFY THAT DRIVE STILL SEIZED BY PORT B 


wove 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

B1C 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

Move 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 


PORTA, RMCS2CR0) ;SELECT PORT A 

PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO>,$BDDAT .-GET CONTENTS OF RMDS 
fRMDS.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 


RO.SBDADR 
SGDDAT 
SBDDAT.STMPO 
#*C77777. STMPO 
SGDDAT, STMPO 
66S 

S8DDAT.STMP4 
077777.STMP4 
STMP4, SGDDAT 
33 

CKERR 


ADD RH/RM BASE ADDRESS 

WHAT REGISTER SHOULD BE 

MOVE REGISTER CONTENTS TO 'STMPO* 

SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR iF OK 
COPY 'BAD DATA' 

CLEAR THE MASKED BITS 

•OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 


PORTS, RHCS2CR0) ;SELECT PORT B 

PORTS, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS (RO) .SBDDAT ;GET CONTENTS OF RMDS 
#RMDS.$BDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR .-ADD RH/RM BASE ADDRESS 

#MOL ! PGM! DPR! DRY !VV, SGDDAT ;WHAT REGISTER SHOULD BE 
SBDDAT.STMPO .-MOVE REGISTER CONTENTS TO 'STMPO' 

f*C 777^7, STMPO .-SAVE SPECIFIED BITS 


j 


N 6 
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022270 001414 


SEO 0078 


022314 104033 

022316 005137 001250 
022322 000240 


022324 012760 000040 000010 


022332 

022340 

022346 

022352 

022360 

022366 

022372 

022376 

022404 

022412 

022420 

022422 

022430 

022436 

022444 

022446 

022452 

022454 

022462 

022470 

022474 

022502 

022510 

022514 



113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104034 

005137 

000240 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

Q23737 

001414 

013737 

042737 

053737 

104034 

005137 

000240 


m 

012760 


001164 

CMP 

SGDDAT. STMPO 

.-COMPARE THE BITS 


BEO 

68S 

;BR IF OK 

001174 

MOV 

S6DDAT.STMP4 

.-COPY 'BAD DATA' 

001174 

BIC 

#77777, STHP4 
STMP4. SGDDAT 

.-CLEAR THE MASKED BITS 

;'0R' WITH GOOD DATA FOR TYPEOUT 

001124 

BIS 


EMT 

33 



COM 

CKERR 

.-SET THE REGISTER COMPARE ERROR 

68$: 

NOP 




001224 

001224 

001250 

000012 

000012 

001122 

001124 

001126 

100000 

001124 

001126 

077777 

001174 

001250 

001226 

001226 

001250 

000012 

000012 

001122 

011700 

001126 

100000 

001124 

001126 

077777 

001174 

001250 


881111 

000013 


;NOW ISSUE MASSEUS INIT 


MOV 


#CLR.RMCS2(R0) ; ISSUE MASSBUS INIT 


; CONFIRM THAT DRIVE STILL SEIZED BY PORT B 


000010 

001240 

001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


70S: 


72$: 


MOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

MOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 


PORTA, RMCS2(R0) .-SELECT PORT A 

PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
#RMDS,$BDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 


R0.S8DADR 
SGDDAT 
SBDDAT.STMPO 
# A C77777,STMP0 
SGDDAT, STMPO 
70S 

SBDDAT.STMP4 
#77777, STHP4 
STMP4, SGDDAT 
34 

CKERR 


ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
MOVE REGISTER CONTENTS TO 'STMPO' 

SAVE SPECIFIED BITS 
COMPARE THE BITS 
8R IF OK 
COPY 'BAD DATA’ 

CLEAR THE MASKED BITS 

'OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 


PORT8,RHCS2(RO> ;SELECT PORT B 

PORTB, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO),SBDDAT ;6ET CONTENTS OF RMDS 
#RMDS,$BDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR ;ADD RH/RM BASE ADDRESS 

#NQL.'PGH!DPR!DRY]VV,$GDDAT ;WHAT REGISTER SHOULD BE 


SBDDAT.STMPO 
#*C77777, STMPO 
SGDDAT. STMPO 
72$ 

S8DDAT.STMP4 
#77777.STMP4 
STMP4, SGDDAT 
34 

CKERR 


* * ■ # mini nLV4 w i wnvwbv « 

MOVE REGISTER CONTENTS TO 'STMPO' 

SAVE SPECIFIED BITS 
COMPARE THE BITS 
BR IF OK 
COPY 'BAD DATA' 

CLEAR THE MASKED BITS 

•OR' WITH GOOD DATA FOR TYPEOUT 

SET THE REGISTER COMPARE ERROR INDICATOR 


; RELEASE THE DRIVE FROM PORT B 


000010 

001240 

000000 


MOVB PORTB,RMCS2(RO> ;SELECT PORT 8 

MOV PORTB, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

NOV #13,RMCS1(R0> .‘ISSUE RELEASE THROUGH PORT B 


.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


SCO 0079 
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022622 

022626 

022634 

022640 

022646 

022654 

022662 

022670 

022676 

022704 

022712 

022720 

022726 

022734 

022742 

022750 

022752 

022756 

022760 

022762 

022766 

022774 

023002 

023010 

023014 

023016 

023024 

023032 

023040 

023044 

023046 

023054 

023062 

023070 

023072 

023100 

023106 

023114 

023122 

023124 

023126 

023134 

02314? 

023150 

023156 

023160 

023162 

023164 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


023162 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


CLR 

MOV 

ADD 

MOV 

HOVB 

MOV 

BIC 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOVB 

TST 

BEO 

MOV 

MOV 

MOVB 

TST 

BNE 

MOV 

MOV 

MOV 

EMT 

MOV 

MOV 

BIC 

CMP 

BEO 

EMT 

MOV 

MOV 

BIC 

CMP 

BEO 

EMT 

NOP 

SCOPE 


RELERR .CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,$8DADR .FORM THE ADDRESS OF RMDS FOR TVPEOUT 
RO.SBDADR ;ADD THE I/O BASE ADDRESS 

fMOL ! PGM ! DPR ! DR V ! VV , S6DDAT .'COMPARISON CONSTANT 
PORTA. RMCS2CR0) .SELECT PORT A. 

RMDS(RC) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRL:0M,$TMP2 .'CLEAR DONT CARES 

STMP2.STNP0 .'COPY IT INTO ’fTMPO* 

RATA! VV.fTMPO .'CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2CR0) .'SELECT PORT B. 

RMDS(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT 8. 
#PIP!WRL!0M.*TMP3 .'CLEAR DONT CARES 


STMP3.STHP1 

RATA! VV.fTHPI 

fTMPO, *TMP1 

74$ 

fTMPO 

76$ 

46 

78$ 

$TMP2,$BDDAT 
PORTS, PTNBR 
PORTS, RMCS2CR0) 
fTMPO 
75$ 

PORTA, PTNBR 

$TMP3,$BDDAT 

PORTA. RMCS2CR0) 

$TMP1 

76$ 

R-1. RELERR 
R11.RMCSKR0) 
R13.RMCS1CR0) 
26 

$TMP2.$8DDAT 
PORTA, PTNBR 
RATA.fBDDAT 
$GDDAT,$BDDAT 
77$ 

7 

$TMP3.$BDDAT 
PORTS. PTN8R 
RATA.fBDDAT 
$GDDAT,$BDDAT 
78$ 

7 


COPY IT INTO '$TMP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
cci cr t prjRT q 

SEE IF STATUS'eQ 0 FROM PORT a. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURFS WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BI»* 

SEE IF READ OK FROM PORT B. 

BR IF OK 


.•LOOP ? 


•TEST 16 SEIZE *A' BY RMCS1 TEST 

•VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
•IF THE DRIVE IS IN NEUTRAL. . . 

* A. READ THE CONTROL REGISTER (RMCS1) THROUGH PORT 'A'; VERIFY THAT 


c 
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SEO 0080 


637 

647 


023244 

023252 

023256 

023264 

023272 

023300 

023304 

023312 


023320 

023326 

023334 

023340 

023346 

023354 

023362 

023370 

023374 

023402 

023406 

023414 

023416 

023420 

023424 

023424 

023432 

023440 

023446 

023454 

023462 

023470 

023474 

023502 


THE DRIVE IS SEIZED. 

B. ISSUE A RELEASE COMMAND THROUGH PORT *A': VERIFY THAT the DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


023166 




TST16: 



023166 

005737 

001300 


TST 

KY8CTL 

.PERFORMING ONLY SINGLE TEST ? 

023172 

001406 



BED 

2$ 

;BR IF NOT 

023174 

100002 



BPL 

IS 

;BR IF JUST ENTERED TEST 

023176 

000137 

003062 

001300 

JMP 

EXEC 

.•RETURN t GET NEXT TEST NUMBER 

023202 

023210 

012737 

177777 

IS: MOV 

*-1 .KYBCTL 

.’SET SINGLE TEST INDICATOR 

012737 

023224 

001106 

2$* MOV 

JTEST16.SLPADR 

.‘SETUP SCOPE LOOP ADDRESS 

023216 

012737 

023224 

001110 

MOV 

JTEST16.SLPERR 

.’SETUP ERROR LOOP ADDRESS 

023224 




TEST16: 

023224 

112737 

000016 

001102 

M0V8 

J16.STSTNM 

.‘MOVE #16 TO TEST NUMBER 

023232 

012706 

001100 


MOV 

fSTACK.SP 

,-LOAD THE STACK P0IN1ER 

023236 

012737 

000012 

001176 

MOV 

#10., STINES 

;;D0 10. ITERATIONS 


.‘CLEAR ATTENTION BITS FOR BOTH PORTS 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 

013737 

005760 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 

113760 
013737 
01 #037 
042737 
012737 
013737 
005137 
013737 
043737 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001224 

001224 

000000 

001226 

001226 

001226 

000012 

001122 

000012 

001124 

001124 


024110 

001224 

001224 

000012 

020001 

011700 

001124 

001166 

001126 

001166 


000010 

M0V8 


CLR 

000000 

MOV 

000000 

MOV 

000010 

M0V8 


CLR 

000000 

MOV 

000000 

MOV 


.‘SEIZE THE D 

000010 

M0V8 

001242 

MOV 


TST 

000010 

M0V8 

001240 

MOV 

001244 

MOV 

001126 

MOV 


MOV 

001122 

ADD 


CLR 

001126 

CMP 


PORTA, RMCS2(R0) .‘SELECT PORT *A 


RMDS(RO) 
fll.RMCSKRO) 
*13,RHCS1<R0) 


.‘SEIZE THE DRIVE 
.‘ISSUE DRIVE CLEAR 
.‘RELEASE THE DRIVE 


P0RTB.RMCS2(R0) .‘SELECT PORT 0B 


RMDS(RO) 

#1 1 .RMCS1 (RO) 
013.RMCS1 (RO) 


.‘SEIZE THE DRIVE THROUGH PORT 'B' 
.•ISSUE DRIVE CLEAR 
.‘RELEASE THE DRIVE 


PORTA, RMCS2(R0) ;SELECT PORT A 
PORTA, SEIZPT .‘STORE SEIZING PORT’S ADDRESS 
RMCSKRO) .‘READ RMCS1 

PORTS, RMCS2(R0) ; SELECT PORT B 

PORTS, PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 


000010 

001240 

001126 

001126 

001124 

001166 

001164 

001164 


64$: 


SEO 

EMT 

JNP 

MO VS 

MOV 

MOV 

SIC 

MOV 

MOV 

COM 

MOV 

SIC 


PORTB.OPPRT 
RMDS(RO) .SBDDAT 
RO.SSDADR 
IRMDS.SBDADR 
SGDDAT 

SGDDAT, SBDDAT 
64$ 

4 

1 $ 


•OPPOSITE* PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZcRO 
IS THE REGISTER ZERO 
BR IF IT IS 

BYPASS REST OF THE SUBTEST 


PORTA, RMCS2(R0) ; SELECT PORT A 

PORTA.PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) .SBDDAT .SEE IF SEIZING PORT SEES CORRECT STATUS 
#OM!PIP, SBDDAT ; CLEAR DONT CARE BITS 

#M0L ! PGM ! DPR ! DRY ! VV, SGDDAT .‘EXPECTED STATUS 
SGDDAT, STMP1 .‘USE GOOD DATA AS A MASK 


STMP1 
SBDDAT. STMPO 
STMP1.STHP0 


COMPLEMENT THE EXPECTED STATUS 
SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 


? 


SEQ 0081 
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023510 

023516 

023520 

023522 


023737 

001401 

104005 

000240 


001124 


023546 

023552 

023560 

023564 

023572 

023600 

023606 

023614 

023622 

0P3630 

023636 

023644 

023652 

023660 

023666 

023674 

023676 

023702 

023704 

023706 

023712 

023720 

023726 

023734 

023740 

023742 

023750 

023756 

023764 

023770 

023772 

024000 

024006 

024014 

024016 

024024 

024032 

024040 

024046 

024050 

024052 

024060 

024066 

024074 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013 7 37 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


024106 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001164 


CMP 

BEQ 

EMT 


65S: 

NOP 


.•RELEASE THE 

000010 


MOVB 

001240 


MOV 

000000 


MOV 


.VERIFY 

THAT 

CLR 

001122 


MOV 

ADD 

001124 


MOV 

000010 


MOVB 

001170 


MOV 

001170 


BIC 

001164 


MOV 

001164 


BIC 

000010 


MOVB 

001172 


MOV 

001172 


BIC 

001166 


MOV 

001166 


BIC 

001166 


CMP 

BNE 

TST 

BNE 

EMT 

JMP 

001126 

66S: 

MOV 

001240 


MOV 

000010 


MOVB 

TST 

BEQ 

001240 


MOV 

001126 


MOV 

000010 


MOVB 

TST 

BNE 

001254 

67$: 

MOV 

000000 


MOV 

000000 


MOV 

EMT 

001126 

68$: 

MOV 

001240 


MOV 

001126 


BIC 

001126 


CMP 

BEQ 

EMT 

001126 

69$: 

MOV 

001240 


MOV 

001126 


3IC 

001126 


CMP 


SGDDAT, STMPO 

65S 

5 


;ARE THE EXPECTED STATUS 81 TS SET ? 
;8R IF THEY ARE 


PORTA. RMCS2(R0> ;SELECT PORT A 

PORTA. PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1 (RO) ; ISSUE RELEASE THROUGH PORT A 


RELERR ; CLEAR THE 'RELEASE ERROR ' INDICATOR 

fRMDS.SBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0.S8DADR .ADD THE I/O BASE ADDRESS 

IMOL ! PGM ! DPR ! DR Y ! VV . SGDDAT .‘COMPARISON CONSTANT 
PORTA, RMCS2IR0) .‘SELECT PORT A. 

RMDS(RO) .STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 

#PIP !WRL!0M,$TMP2 .‘CLEAR DONT CARES 

STMP2.STFP0 .‘COPY IT INTO 'STMPO' 

fATAJVV, STMPO .‘CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTS, RMCS2(R0) .‘SELECT PORT B. 

RMDS(RO) .STMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL!0M,STMP3 .‘CLEAR DONT CARES 


$TMP3,$TMP1 
#ATA!VV,$TMPl 
STMPO. STMP1 
66S 
STMPO 
68S 
46 
70S 

STMP2.SBDDAT 
PORTS. PTNBR 
PORTS, RMCS2(R0) 
STMPO 
67S 

PORTA, PTNBR 

STMP3.SB0DAT 

PORTA, RMCS2(R0) 

STMP1 

68S 

#-1 .RELERR 
fll.RMCSURO) 
#13.RMCS1 (RO) 
26 

STMP2.SBDDAT 
PORTA, PTNBR 
fATA.SBDDAT 
SGDDAT.SBDDAT 
69$ 

7 

STMP3.SBDDAT 

PORTB.PTNBR 

fATA.SBDDAT 

SGDDAT.SBDDAT 


COPY IT INTO 'STMP1 * 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT 8. 

BR IF NOT 

SET 'RELEASE ERROR’ INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
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9-a! 


648 

660 

661 


024102 

024104 

024106 

024110 


662 

663 


001401 

104007 

000240 

000004 


70S: 

IS: 


BEO 

EMT 

HOP 

SCOPE 


70S 

7 


;8R IF OK 
.-LOOP ? 


•TEST 17 


SEIZE 'B* BY RMCS1 TEST 


•VERIFY THAT READING THE CONTROL REGISTER (RMCS1) SEIZES THE DRIVE 
•IF THE DRIVE IS IN NEUTRAL. 

• A. READ THE CONTROL REGISTER (RNCS1) THROUGH PORT 'B'; VERIFY THAT 

• THE DRIVE IS SEIZED. 

• B. ISSUE A RELEASE COMMAND THROUGH PORT *B'; VERIFY THAT THE DRIVE 

• RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


024112 




TST17: 



024112 

005737 

001300 


TST 

KYBCTL 

.•PERFORMING ONLY SINGLE TEST ? 

024116 

001406 



BEO 

2$ 

;8R IF NOT 

024120 

100002 



BPL 

1$ 

;BR IF JUST ENTERED TEST 

024122 

000137 

003062 


JMP 

EXEC 

.-RETURN t GET NEXT TEST NUMBER 

024126 

012737 

177777 

001300 

1$: NOV 

#-1 .KYBCTL 

;SET SINGLE TEST INDICATOR 

024134 

012737 

024150 

001106 

2$: MOV 

#TEST1 7.SLPADR 

.'SETUP SCOPE LOOP ADDRESS 

024142 

012737 

024150 

001110 

MOV 

#TEST17,$LPERR 

; SETUP ERROR LOOP ADDRESS 

024150 




TEST17: 



024150 

112737 

000017 

001102 

M0V8 

#17,$TSTNN 

;MOVE #17 TO TEST NUMBER 

024156 

012706 

001100 


MOV 

fSTACK.SP 

.‘LOAD THE STACK POINTER 

024162 

012737 

000012 

001176 

MOV 

#10. .JTIMES 

;;D0 10. ITERATIONS 


.•CLEAR ATTENTION BITS FOR BOTH PORTS 


024170 

024176 

024202 

C24210 

024216 

024224 

024230 

024236 


024244 

024252 

024260 

024264 

024272 

024300 

024306 

024314 

024320 

024326 

024332 

024340 


113760 

00S060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 

013737 

005760 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001226 

001226 

000000 

001224 

001224 

001224 

000012 

001122 

000012 

001124 

001124 


000010 

000000 

000000 

000010 

000000 

000000 


000010 

001242 

000010 

001240 

001244 

001126 

001122 

001126 


M0V8 PORTA, RMCS2CR0) 

CLR RMDS(RO) 

MOV #11 .RMCS1 (RO) 

MOV #13,RMCSKR0) 

M0V8 PORT8,RMCS2(R0) 

CLR RMDS(RO) 

MOV #11 .RMCS1 (RO) 

MOV #13,RMCS1 (RO) 

.‘SEIZE THE DRIVE THROUGH PORT B 


.‘SELECT PORT #A 
.‘SEIZE THE DRIVE 
.‘ISSUE DRIVE CLEAR 
.‘RELEASE THE DRIVE 
.•SELECT PORT #B 

.‘SEIZE THE DRIVE THROUGH PORT 'B* 
; ISSUE DRIVE CLEAR 
.'RELEASE THE DRIVE 


M0V8 

NOV 

TST 

M0V8 

MOV 

MOV 

MOV 

MOV 

ADD 

CLR 

CMP 

BEO 


P0RTB,RMCS2(R0) .’SELECT PORT B 
PORTS, SEIZPT .‘STORE SEIZING PORT'S ADDRESS 
RMCSKRO) ;READ RMCS1 

PORTA, RNCS2(R0) ;SELECT PORT A 

PORTA. PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTA, OPPRT ; 'OPPOSITE' PORT ADDRESS 

; SEE IF DRIVE SEIZED BY PORT B 

.RH/RM BASE ADDRESS 
; GENERATE BAD REGISTER ADDRESS 
; REGISTER SHOULD BE ZERO 
;IS THE REGISTER ZERO 
,*8R IF IT IS 


RHD$(R0),$8DDAT 

ROJBDADR 

fRfoS.SBDADR 

SGDDAT 

SGDDAT.SBDDAT 

64$ 


SEA 0082 
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SEO j. 


024342 

024344 

024350 

024330 

024356 

024364 

024372 

024400 

024406 

024414 

024420 

024426 

024434 

024442 

024444 

024446 


104004 
0001 37 

113760 

013737 

016037 

042737 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104005 

000240 


025034 

001226 

001226 

000012 

020001 

011700 

001124 

001166 

001126 

001166 

001124 


024472 

024476 

024504 

024510 

024516 

024524 

024532 

024540 

024546 

024554 

024562 

024570 

024576 

024604 


4632 

4636 

4644 

4652 

4660 

4664 


i '. n 

\L 
n 


005037 
012737 
C60037 
012737 
113760 
016037 
042737 
013737 
042737 
11 3760 
016037 
042737 
013737 
2737 
3737 

P» 

001045 

000137 
013737 
013737 

0057$? 
001414 
7 


4714 

4716 

24724 



000010 

001240 

001126 

001126 

001124 

001166 

001164 

001164 

001164 


024450 113760 001226 
024436 013737 001226 
024464 012760 000013 


012737 

012760 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


025032 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 


1$ ;BTPASS REST OF THE SUBTEST 

PORTB,RMCS2(RO) ;SELECT PORT B 

PORTB.PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPE OUT 

RMDS(RO).$BDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 

*OM!PIP,$BDDAT .‘CLEAR DONT CARE BITS 

#HOL PGM ! DPR ! DRY ! VV.SGDDAT .‘EXPECTED STATUS 

S6DDAT.STMP1 ;USE GOOD DATA AS A MASK 

STMP1 ; COMPLEMENT THE EXPECTED STATUS 

$8DDAT,$TMP0 .‘SAVE THE ACTUAL STATUS 

$TMP1, STMPO .‘CLEAR UNWANTED BITS 

SGDDAT, STMPO .‘ARE THE EXPECTED STATUS BITS SET ? 

65$ ,8R IF THEY ARE 


000010 

001240 

000000 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 66$: 

001240 

000010 


001240 

001126 

000010 


001254 67$: 

000000 


.RELEASE THE DRIVE FROM PORT B 

MOVB P0RTB,RMCS2(R0) .‘SELECT PORT B 

MOV PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
MOV #13.RMCS1(RG) .‘ISSUE RELEASE THROUGH PORT B 

.VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR 

MOV 

ADD 

MOV 

M0V8 

MOV 

BIC 

MOV 

BIC 

NOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

NOVB 

TST 

BEO 

NOV 

MOV 

NOVB 

TST 

BNE 

MOV 

MOV 


RELERR .‘CLEAR THE 'RELEASE ERROR ' INDICATOR 

fRMDS.SBDADR .FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR .ADD THE I/O BASE ADDRESS 

#MOL.' PGM! DPR! DRY ‘VV.SGDDAT .‘COMPARISON CONSTANT 
PORTA, RNCS2(R0) ; SELECT PORT A. 

RMDS(RO) -STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP.'WRL!0M,$TMP2 .‘CLEAR DONT CARES 

STMP2,$TNP0 ;COPY IT INTO 'STNPO' 

#ATA!W,$TNPO .‘CLEAR PORT DEPENDENT BITS FROM THE COPY 
P0RTB,RMCS2(RQ) .SELECT PORT B. 

RMDS(RO) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 


RMDS(R0).$THP3 ; 
#PIP!HRL!0N.$TNP3 
$TNP3,$TNP1 
#ATA! VV.STMP1 ; 
STMPO.STMPI 
66$ ;i 

STMPO ;l 

68$ ;l 

46 

70$ ;l 

$TMP2.$BDDAT 
PORTB.PTNBR 
PORTS, RMCS2(R0) ; 
STMPO 

67$ ;! 

PORTA.PTNBR 
STMP3.SBDDAT 
PORTA, RMCS2(R0) ; 
STMP1 

68$ ;l 

#-1 .RELERR 
fll.RMCSKRO) ; 


.'CLEAR DONT CARES 
COPY IT INTO *$TMP1 * 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EO 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA 1 FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 


i 




SEQ 00S4 
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024732 

024740 

024742 

024750 

024756 

024764 

024772 

024774 

024776 

025004 

025012 

025020 

025026 

025030 

025032 

025034 


012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


000013 000000 


001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


MOV #13.RMCS1(R0> 

ENT 26 

BOV STNP2.SBDDAT 

MOV PORTA, PTNBR 

BiC #ATA,S8DDAT 

CAP SGDDAT.S6DDAT 

BEQ 69$ 

EMT 7 

MOV STMP3.SBDDAT 

MOV PORTS, PTNBR 

BIC #ATA.SBDDAT 

CMP SGDDAT.SBDDAT 

BEQ 70S 

EMT 7 

NOP 
SCOPE 


RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 


CHECK RMDS FOR BIT FAILURES 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT 6. 
BR IF OK 


.•LOOP ? 


- FROM PORT 8. 


025036 

025036 

025042 

025044 

025046 

025052 

025060 

025066 

025074 

025074 

025102 

025106 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


001300 


003062 

177777 

025074 

025074 

000020 

001100 

000012 


001300 

001106 

001110 

001102 

001176 


TEST 20 


PORT 'A* INHIBIT SEIZE BY RMCS1 TEST 


VERIFY THAT READING THE CONTROL REGISTER (RMCS1 ) DOES NOT SET 'PORT 
REQUEST' IF THE DRIVE IS SEIZED. 

A. SEIZE THE DRIVE THROUGH PORT 'B' BY READING RMCS1 . VERIFY THAT 
THE ORIVE HAS BEEN SEIZED. 

B. READ THE CONTROL REGISTER FROM PORT 'A'. VERIFY THAT *DVA' IS NOT 
SET. 

C. ISSUE A RELEASE COMMAND THROUGH PORT '8'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHEP ATTENTION BIT IS SET. 


TST20: 


TEST20: 


MOVB 

MOV 

MOV 


KYBCTL 

2 $ 

IS 

EXEC 

#-1 .KYBCTL 

#TEST20,$LPADR 

#TEST20.$LPERR 

#20,$TSTNM 
fSTACK.SP 
#10. .STINES 


PERFORMING ONLY SINGLE TEST ? 
SR IF NOT 

BR IF JUST ENTERED TEST 
RETURN l GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #20 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 


025114 

025122 

025126 

025134 

025142 

025150 

025154 


113760 

005060 

012760 

012760 

113760 

005060 

012760 


001224 

000012 

000011 

000013 

001226 

000012 

000011 


000010 

000000 

000000 

000010 

000000 


.-CLEAR ATTENTION BITS FOR BOTH PORTS 


PORTA. RMCS2(R0) .-SELECT PORT #A 


RMDS(RO) 
#11,RNCS1 (RO) 
#13.RMCS1(R0) 


.•SEIZE THE DRIVE 
.•ISSUE DRIVE CLEAR 
.•RELEASE THE DRIVE 


PORTS, RMCS2(R0) .-SELECT PORT #8 


RMDS(RO) 

#11 .RMCS1 (RO) 


.•SEIZE THE DRIVE THROUGH PORT 'B* 
.•ISSUE DRIVE CLEAR 


SEQ 0085 
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025162 012760 000013 000000 


NOV 


#13,RNCSKR0> .RELEASE THE DRIVE 


025170 

025176 

025204 

025210 

025216 

025224 

025232 

025240 

025244 

025252 

025256 

025264 

025266 

025270 

025274 

025274 

025302 

025310 

025316 

025324 

025332 

025340 

025344 

025352 

025360 

025366 

0253’0 

02537? 

025374 

02540? 


025410 
025414 
025422 
025430 
025434 
025440 
025446 
025454 
025462 
025464 
5472 
5500 
5506 
5510 
5514 


113760 

013737 

005760 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 

113760 

013737 

016037 

042737 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104005 

000240 

113760 

013737 


005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 


001226 

001226 

000000 

001224 

001224 

001224 

000012 

001122 

000012 

001124 

001124 


026102 

001226 

001226 

000012 

020001 

011700 

001124 

001166 

001126 

001166 

001124 


001224 

001224 


001250 

000000 

000000 

001122 

001124 

001126 

173700 

001124 

001126 

004077 

001174 

001250 


.•SEIZE THE DRIVE THROUGH PORT B 


000010 


H0V8 

001242 


NOV 

TST 

000010 


N0V8 

001240 


NOV 

001244 


NOV 

001126 


NOV 

NOV 

001122 


ADD 

CLR 

001126 

64$: 

CAP 

BEQ 

ENT 

JAP 

000010 


N0V8 

001240 


NOV 

001126 


NOV 

001126 


BIC 

001124 


NOV 

001166 


NOV 

COM 

001164 


NOV 

001164 


BIC 

001164 


CMP 

BEQ 

ENT 


65S: 

NOP 

000010 


N0V8 

001240 


NOV 


PORTS. RNCS2CR0) .SELECT PORT B 
PORTS. SEIZPT .STORE SEIZING PORT'S ADDRESS 
RACSKRO) .READ RMCS1 

PORTA. RNCS2<R0) :SELECT PORT A 

PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTA, OPPRT 


’OPPOSITE* PORT ADDRESS 


RflDS(RO) .SBDDAT .SEE IF DRIVE SEIZED BY PORT B 


R0.S8DADR 
fRMDS . SBDADR 
SGDDAT 

SGDDAT. SBDDAT 
64$ 

4 

IS 


.♦RH/RM BASE ADDRESS 
.•GENERATE BAD REGISTER ADDRESS 
.-REGISTER SHOULD BE ZERO 
;IS THE REGISTER ZERO 
;BR IF IT IS 

.BYPASS REST OF THE SUBTEST 


PORTS. RRCS2(R0) ;SELECT PORT B 

PORTB. PTNBR ,’ftOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RflDS(RO). SBDDAT .-SEE IF SEIZING PORT SEES CORRECT STATUS 
#QA! PIP. SBDDAT ; CLEAR DONT CARE BITS 

#MOL ! PGR ! DPR ! DR Y ! VV .SGDDAT .-EXPECTED STATUS 
SGDDAT. ST API ;USE GOOD DATA AS A MASK 


STMP1 
SBDDAT.STNPO 
STAP1.STNP0 
SGDDAT, STflPO 
65S 
5 


COMPLEMENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET 

BR IF THEY ARE 


PORTA. RACS2(R0> ;SELECT PORT A 

PORTA. PTNBR ;AOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
.-READ RMCS1 THROUGH PORT A - TRY TO SET PORT REQUEST 


001126 

CLR 

NOV 

001122 

NOV 

001164 

ADD 

CLR 

NOV 

001164 

BIC 

001164 

CMP 

001174 

BEQ 

NOV 

001174 

BIC 

001124 

BIS 

66$: 

ENT 

con 

NOP 


CKERR 
RflCSKRO), SBDDAT 
fRflCSI .SBDADR 
R0.S8DADR 
SGDDAT 

S8DDAT.STAP0 
#*C407?.STAP0 
SGDDAT. STflPO 
66S 

SBDDAT, STAP4 
#4077.$TRP4 
STHP4. SGDDAT 

10 

CKERR 


.-CLEAR THE 'CHECK ERROR' INDICATOR 
.-GET CONTENTS OF RflCSl 
FORM REGISTER ADDRESS OF ERROR NcSSAGc 
.ADD RH/Rfl BASE ADDRESS 
.WHAT REGISTER SHOULD BE 
;flOVE REGISTER CONTENTS TO 'STflPO' 

SAVE SPECIFIED BITS 
; COMPARE THE BITS 

•op IC QK 
;COPY 'BAD DATA' 

; CLEAR THE MASKED BITS 
; 'OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


.DRIVE SHOULD RETURN TO NEUTRAL 
; RELEASE THE DRIVE FROM PORT B 
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SEO < 


025516 113760 001226 COOOIO 
025524 013737 001226 001240 
025532 01 2 760 000013 000000 


025540 

025544 

025552 

025556 

025564 

025572 

025600 

025606 

025614 

026622 

025630 

025636 

025644 

025652 

025660 

025666 

025670 

025674 

025676 

025700 

025704 

025712 

025720 

025726 

025732 

025734 

025742 

025750 

025756 

025762 

025764 

025772 

026000 

026006 

026010 

026016 

026024 

02603? 

026040 

026042 

026044 

026052 

026060 

026066 

026074 

026076 

026100 

026102 


005037 
012737 
060037 
012737 
113760 
O’ 6037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
001006 
005737 
001045 
104046 
000137 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
113760 
005737 
001012 
012737 
012760 
012760 
104020 
013737 

a 13737 
42737 
923737 
001401 
104007 
013737 
013737 
042737 
023737 
001401 
104007 
000240 
000004 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


026100 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


PORTB,RHCS2<RO) ; SELECT PORT 8 

PORTB.PTNBR HOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
#13,RHCS1 (RO) ; ISSUE RELEASE THROUGH PORT B 


; VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR 

NOV 

ADD 

NOV 

H0V8 

NOV 

BIC 

NOV 

BIC 

H0V8 

NOV 

61 C 

NOV 

BIC 

CNP 

BNE 

TST 

BNE 

ENT 

JNP 

NOV 

NOV 

H0V8 

TST 

BEO 

NOV 

NOV 

N0V8 

TST 

BNE 

NOV 

NOV 

NOV 

ENT 

NOV 

NOV 

BIC 

CNP 

BEQ 

ENT 

NOV 

NOV 

BIC 

CNP 

BEQ 

ENT 

NOP 

SCOPE 


RELERR 

fRNDS.SBDADR 

R0.S8DADR 


.’CLEAR THE 'RELEASE ERROR ' INDICATOR 
;FORH THE ADDRESS OF RHDS FOR TYPEOUT 
:ADD THE I/O BASE ADDRESS 


fHOL!PGH!DPR!DRY!VV,SGDDAT ;COF*ARISON CONSTANT 
PORTA. RNCS2(R0) .’SELECT PORT A. 

RHDS (ROT. STHP2 :GET THE DRIVE STATUS REGISTER FROH PORT A. 
#PIP!WRL!0H,STHP2 .’CLEAR DONT CARES 

$THP2,$THP0 .COPY IT INTO 'STNPO' 

#ATA!W.$THPO .’CLEAR PORT DEPENDENT BITS FROH THE COPY 
PORTS. RHCS2IR0) .’SELECT PORT B. 

RHDS(R0).$THP3 ;GET THE DRIVE STATUS REGISTER FROH PORT 8. 
#PIP!WRL!0H.STHP3 .’CLEAR DONT CARES 


STNP3.STNP1 

#ATA! VV.STNP1 

STNPO, STHP1 

68S 

STNPO 

70S 

46 

72S 

STHP2.S8DDAT 

PORTS. PTNBR 

PORT8,RNCS2(RO) 

STNPO 

69S 

PORTA. PTNBR 

STHP3.S6DDAT 

PORTA. RNCS2CR0) 

STHP1 

70S 

#•1 .RELERR 
fll.RHCSKRO) 
#13,RNCS1 (RO) 
26 

STNP2.S6DDAT 

PORTA.PTNBR 

fATA.SSDDAT 

SGDDAT.SBDDAT 

71S 

7 

STNP3.S6DDAT 

PORTB.PTNBR 

fATA.SSDDAT 

SGDDAT.I8DDAT 

72S 

7 


COPY IT INTO 'STHP1 ' 

CLEAR PORT DEPENDENT BITS FROH THE COPY 

JS THE STATUS REGISTER THE SANE FROH BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SANE: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR HESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROH PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROH PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RHDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROH PORT A. 

CHECK RMDS FOR BIT FAILURES - FROH PORT B. 

CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROH PORT B. 

BR IF OK 


.’LOOP ? 


• * 


SE 0 0087 
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026104 

026104 

026110 

026112 

026114 

026120 

026126 

026134 

026142 

026142 

026150 

026154 


026162 

026170 

026174 

026202 

026210 

026216 

026222 

026230 


026236 

026244 

26252 

26256 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 
01 3737 
005760 


001300 


003062 

177777 

026142 

026142 

000021 

001100 

000012 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001224 
001224 


1226 
1226 
1226 

1122 
12 
001124 
001124 


027150 


001300 

001106 

001110 

001102 

001176 


000010 

000000 

000000 

000010 

000000 

000000 


000010 

001242 

000010 

001240 

001244 

001126 

001122 

001126 


TEST 21 


PORT ’B’ INHIBIT SEIZE BY RNCS1 TEST 


VERIFY THAT READIN6 THE CONTROL RE6ISTER (RNCS1) DOES NOT SET 'PORT 
REQUEST* IF THE DRIVE IS SEIZED. 

A. SEIZE THE DRIVE THROUGH PORT 'A 1 BY READING RNCS1 . VERIFY THAT 
THE DRIVE HAS BEEN SEIZED. 

B. READ THE CONTROL REGISTER FROM PORT *B’. VERIFY THAT 'DVA* IS NOT 
SET. 

C. ISSUE A RELEASE CONNAND THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TST21 



TST 

KYBCTL 

PERFORNING ONLY SINGLE TEST ? , 


BEQ 

2 % 

BR IF NOT 


BPL 

IS 

BR IF JUST ENTERED TEST 1 


JNP 

EXEC 

RETURN t GET NEXT TEST NUNBER 

1$: 

NOV 

#-1, KYBCTL 

SET SINGLE TEST INDICATOR 

2$: 

NOV 

VTEST21 .SLPADR 

SETUP SCOPE LOOP ADDRESS 

TEST21 : 

NOV 

#TEST21 .SLPERR 

SETUP ERROR LOOP ADDRESS 


NOVB 

#21 .STSTNN 

NOVE #21 TO TEST NUNBER 


NOV 

#S TACK.SP 

LOAD THE STACK POINTER I 


NOV 

#10.. STINES 

;D0 10. ITERATIONS 1 

.•CLEAR 

ATTENTION BITS FOR BOTH PORTS { 


NOVB PORTA.RNCS2(RO> 

CLR RNDS(RO) 

NOV #1 1 .RNCS1 (RO) 

NOV #13,RHCS1 (RO) 

N0V8 PORTS, RNCS2CR0) 

CLR RNDS(RO) 

NOV #11 .RNCS1 (RO) 

NOV #13,RNCS1(R0> 

.-SEIZE THE DRIVE THROUGH PORT A 


SELECT PORT #A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT #6 

SEIZE THE DRIVE THROUGH PORT 'B* 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


N0V8 

NOV 

TST 

NOVB 

NOV 

NOV 

NOV 

NOV 

ADD 

CLR 

CNP 

BEQ 

ENT 

JNP 


PORTA, RNCS2(R0) :SELECT PORT A 
PORTA, SEIZPT ;StORE SEIZING PORT’S ADDRESS 
RNCS1 (RO) .READ RNCS1 

PORTB,RNCS2(RO> :SELECT PORT B 

PORTS. PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTB.OPPRT 

RNDS(R0),S8DDAT 

R0.S8DADR 

fRNDS.JBDADR 

SGDDAT 

SGDDAT.SBDDAT 

64S 

4 

IS 


’OPPOSITE’ PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT A 
RH/RN BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
B R IF IT IS 

BYPASS REST OF THE SUBTEST 


L_ 



SEO 00 be 
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026342 
026350 
026356 
026364 
026372 
026400 
026406 
026412 
026420 
026426 
026434 
026436 
026440 
026442 
02 6450 


026456 

026462 

026470 

026476 

026502 

026506 

026514 

026522 

026530 

026532 

026540 

026546 

026554 

026556 

026562 


113760 

013737 

8 ffl 

01§7?7 

005137 

013737 

043737 

023737 

001401 

104005 

000240 

113760 

013737 


005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 


OOK24 

001224 

000012 

020001 

011700 

001124 

001166 

001126 

001166 

001124 


001226 

001226 


001250 
000000 
000000 
001122 
001124 
001 126 
173700 
001124 

001126 

004077 

001174 

001250 


000010 

001240 

001126 

001126 

001124 

001166 

001164 

001164 

001164 


000010 

001240 


001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


026564 113760 001224 000010 
026572 013737 001224 001240 
026600 012760 000013 000000 


026606 

026612 

026620 


026640 

026646 

026654 

026662 

026670 

026676 

026704 

026712 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 


001254 

000012 

001122 

0117u0 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

° 0 m 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 


N0V8 

NOV 

NOV 

BIC 

NOV 

NOV 

CON 

NOV 

BIC 

CNP 

BEG 

ENT 

NOP 

NOVB 

NOV 


PORTA, RNCS2(R0) :SELECT PORT A 

PORTA.PTNBR ;NOvl PORT ADDRESS TO LOCATION FOR TVPEOUT 

RNDS(«». SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 

fON'PIP.iBDDAT ; CLEAR DONT CARE BITS 

#HOL!PGR!DPR!DRY!W,SGDDAT .'EXPECTED STATUS 

SGDDAT, STNP1 ;USE GOOD DATA AS A NASA 

STNP1 ; CONPLENENT THE EXPECTED STATUS 

S8DDAT.STNP0 .'SAVE THE ACTUAL STATUS 

STNP1, STNPO ; CLEAR UNWANTED BITS 

SGDDAT.STNPO .ARE THE EXPECTED STATU* BITS SET ? 

65S ;8R IF THEY ARE 

5 


PORTS, RRCS2(R0) ;SELECT PORT B 

P0RTB.PTN8R ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


.-READ RNCS1 THROUGH PORT B - TRY TO SET PORT REQUEST 


CKERR 

RNCS1 (RO) .SBDDAT 
#RNCS1 .S8DADR ; 
R0.S8DADR 
SGDDAT 

S8DDAT.STNP0 
#*C4077.STHP0 ; 
SGDDAT.STNPO 
66S 

SBDDAT. STNP4 
R4077.STNP4 
STNP4, SGDDAT 
10 

CKERR 


; DRIVE SHOULD RETURN TO NEUTRAL 
.'RELEASE THE DRIVE FRON PORT A 


.•CLEAR THE 'CHECK ERROR' INDICATOR 
;GET CONTENTS OF RNCS1 
FORN REGISTER ADDRESS OF ERROR HESSAGE 
.ADD RH/RN BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;NOVE REGISTER CONTENTS TO 'STNPO' 

SAVE SPECIFIED BITS 
.'CONPARE THE BITS 

•dd ft OK 

•COPY 'BAD DATA' 

.•CLEAR THE HASKED BITS 
; 'OR* WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER CONPARE ERROR INDICATOR 


NOVB PORTA. RNCS2(R0) .'SELECT PORT A 

NOV PORTA.PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
NOV #13.RNCS1(R0) .'ISSUE RELEASE THROUGH PORT A 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR .'CLEAR THE 'RELEASE ERROR ' INDICATOR 

NOV fRNDS.SBDADR ;F ORN THE ADDRESS OF RNDS FOR TYPEOUT 

ADD RO.SBDADR ;ADD THE I/O BASE ADDRESS , , 

NOV *N0L!PGN!DPR!DRy1w.SGDDAT ,'CONPARISON CONSTANT 

NOVB PORTA.RNCS2(RO) .'SELECT PORT A. _ 

NOV RNDS(R0>.*TNP2 ;GET THE DRIVE STATUS REGISTER FRON PORT A. 

BIC #PIP!WRl!0N,STHP$ .'CLEAR DONT CARES 

NOV STNP2, STNPO .'COPY IT INTO ’STNPO’ 

BIC #ATA!VV. STNPO .'CLEAR PORT DEPENDENT BITS FRON THE COPY 

NOVB PORT8,RNCS2(R0) .'SELECT PORT B. 

NOV RNDS(RO) .STNP3 'GET THE DRIVE STATUS REGISTER FRON PORT B. 
BIC #PIP!WRl!0N.STNP$ .-CLEAR DONT CARES 

NOV STNP3.STNP1 .'COPY IT INTO ’STNP1* 


7 


SEQ O06V 
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720 

735 

736 


026720 

026726 

026734 

026736 

026742 

026744 

026746 

026752 

026760 

026766 

026774 

027000 

027002 

027010 

027016 

027024 

027030 

027032 

027040 

027046 

027054 

027056 

027064 

027072 

027100 

027106 

027110 

027112 

027120 

027126 

027134 

027142 

027144 

027146 

027150 


042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


027152 


100100 

001164 

001164 


027146 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000C13 

001170 

001224 

100000 

001124 


0011 72 
001226 
100000 
001124 


001166 


BIC 

#ATA.'VV.$TMP1 

001166 


CMP 

STMP0.STMP1 



BNE 

68$ 



TST 

$TMPO 



BNE 

70$ 



EMT 

46 



JMP 

72$ 

001126 

68$: 

MOV 

$TMP2,$BDDAT 

001240 


MOV 

PORTS. PTN8R 

000010 


MOVB 

PORTS, RHCS2CR0) 



TST 

$TMPO 



BEQ 

69$ 

001240 


MOV 

PORTA. PTNBR 

001126 


MOV 

$TMP3.$BDDAT 

000010 


MOVB 

PORTA. RMCS2CR0) 



TST 

$TMP1 



BNE 

70$ 

001254 

69$: 

MOV 

#«1 .RELERR 

OOuOOO 


MOV 

#11 .RMCS1 (RO) 

000000 


MOV 

#13,RMCS1 <R0) 



EMT 

26 

001126 

70$: 

MOV 

$TMP2,$BDDAT 

001240 


MOV 

PORTA. PTNBR 

001126 


BIC 

#ATA,$8DDAT 

001126 


CMP 

$GDDAT,$BDDAT 



BEQ 

71$ 



EMT 

7 

001126 

71$: 

MOV 

$TMP3,$BDDAT 

001240 


MOV 

P0RTB.PTN8R 

001126 


BIC 

#ATA,$BDDAT 

001126 


CMP 

$GDDAT ,$BDDAT 



BEQ 

72$ 



EMT 

7 


72$: 

NOP 



1$: 

SCOPE 



CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SANE FROM BOTH PORTS 

BR IF NOT 

REGISTERS ARE THE SANE: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 


;LOOP ? 


005737 

001300 

TST 

KYBCTL 

001406 


BEQ 

2$ 

100002 


BPL 

1$ 

000137 

003062 

JMP 

EXEC 


*************************************************************** 

TEST 22 SEIZE BY RHAS TEST 

TEST THAT WRITING THE APPROPRIATE DRIVE BIT INTO THE ATTENTION REGISTER 
(RMAS) SEIZES THE DRIVE. VERIFY THAT REQUEST IS SET FOR THE OTHER 
PORT. 

A. WRITE THE APPROPRIATE DRIVE BIT INTO RMAS; VERIFY THAT THE DRIVE 
IS SEIZED. 

B. ISSUE A RELEASE COMMAND THROUGH THE SEIZING PORT; VERIFY THAT THE 
DRIVE SWITCHES TO THE OPPOSITE PORT. ISSUE A RELEASE THROUGH THE 
OPPOSITE PORT AND VERIFY THAT THE DRIVE IS IN NEUTRAL. 

************ ********************************************** ***** 

TST22: 

PERFORMING ONLY SINGLE TEST ? 

BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN t GET NEXT TEST NUMBER 


L_ 


SEQ 0090 
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027166 
0271 74 
027202 
027210 
027210 
027216 
027222 


012737 

012737 

012737 

112737 

012706 

012737 


177777 

027210 

027210 

000022 

001100 

000012 


001300 

001106 

001110 

001102 

001176 


TEST22: 


#-1,KY8CTL 

#TEST22,SLPADR 

#TEST22.SLPERR 

#22,STSTNM 
#STACK,SP 
#10., STIRES 


;SET SINGLE TES1 INDICATOR 
; SETUP SCOPE LOOP ADDRESS 
.'SETUP ERROR LOOP ADDRESS 

;MOVE #22 TO TEST NUMBER 
.•LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


.•CLEAR ATTENTION BITS FOR BOTH PORTS 


027230 

027236 

027242 

027250 

C27256 

027264 

027270 

027276 


027304 

027312 


027320 

027326 

027334 


027342 

027346 

027350 

027356 

027364 

027370 

027372 

027374 

027400 

027400 

027406 

027414 

027420 

027422 

027426 

0<r/<*30 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 

013737 


013760 

113760 

013737 


005760 

001014 

113760 

013737 

005760 

001021 

104042 

000137 

113760 

013737 

005760 

001002 

000137 

104043 

000137 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001230 

001224 


001236 

001224 

001224 


000012 

001226 

001226 

000012 


031224 

001226 

001226 

000012 

030324 

031224 


000010 

000000 

000000 

000010 

000000 

000000 


000010 

001242 


000016 

000010 

001240 


000010 

001240 


000010 

001240 


027434 

027434 005037 001250 
027440 016037 000012 001126 
027446 012737 000012 001122 
027454 060037 001122 


MOVB PORTA, RMCS2(R0) 

CLR RMDS(RO) 

MOV #11 ,RHCS1 (RO) 

MOV #13,RMCS1 (RO) 

MOVB PORTS, RMCS2(R0) 

CLR RMDS(RO) 

MOV #1 1 ,RMCS1 (RO) 

MOV #13,RMCS1 (RO) 


SELECT PORT #A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT ’B’ 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


: SELECT DRIVE OTHER THAN THAT BEING TESTED 


MOVB P0RTC,RHCS2(R0) .'SELECT DRIVE NOT BEING TESTED 
MOV PORTA, SEIZPT ; ’SEIZED* PORT ADDRESS 

.'WRITE THE DRIVE'S ATTENTION BIT 

MOV ASRI.RHAS(RO) .WRITE THE ATTENTION BIT OF THE DRIVE BEING TESTED 

MOVB PORTA, RMCS2(R0) .'SELECT PORT A 

MOV PORTA, PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

.VERIFY THAT EITHER PORT A OR PORT B HAS THE DRIVE 

TST RMDS(RO) ,'SEE THE REGISTER THROUGH PORT A ? 

BNE IS ,'BR IF YES 

MOVB PORTB.RMCS2(R0) ; SELECT PORT B 

MOV PORTS, PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

TST RMDS(RO) .'SEE REGISTER THROUGH PORT B ? 

BNE 2$ ;BR IF YES 

JMP 4$ .'BYPASS REST OF TEST 

IS* 

MOVB PORTS, RHCS2(R0) ^SELECT PORT B 

MOV PORTB.PTNBR ;MOv£ PORT ADDRESS TO LOCATION FOR TYPEOUT 
TST RMDS(RO) .'REGISTER SHOULD BE ZERO THROUGH PORT B 

BNE .+6 ;BR IF STATUS REG IS NOT ZERO 

JMP 3$ .'STATUS REG IS ZERO 

JMP 4S .‘BYPASS REST OF TEST 

;PORT B HAS THE DRIVE. VERIFY THAT PORT A HAS PORT REQUEST SET 

2$ ' CLR CKERR ; CLEAR THE ’CHECK ERROR’ INDICATOR 

MOV RMDS(RO) .SBDDAT .‘GET CONTENTS OF RMDS 
MOV #RMDS,$8DADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD R0.S8DADR .'ADD RH/RM BASE ADDRESS 
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027460 

027466 

027474 

027502 

027510 

027512 

027520 

027526 

027534 

027536 

027542 

027544 

027552 


027560 

027566 

027574 


027602 

027606 

027614 

027622 

027626 

027634 

027642 

027650 

027656 

027664 

027672 

027674 

027700 

027702 

027704 

027712 

027720 

027726 

027730 

027732 


012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 

013737 

013737 


113760 

013737 

012760 


005037 

012737 

012737 

060037 

113760 

013737 

016037 

113760 

013737 

016037 

001404 

005737 

001401 

104044 

013737 

013737 

023737 

001401 

104027 

000240 


01 1 700 
001126 
106077 
001124 

001126 

071700 

001174 

001250 

001226 

001224 


001226 

001226 

000013 


001254 

111700 

000012 

001122 

001224 

001224 

000012 

001226 

001226 

000012 

001164 


001164 

001224 

001124 


001124 

001164 

001164 

001164 

001174 

001174 

001124 


001242 

001244 


000010 

001240 

000000 


001124 

001122 

000010 

001240 

001164 

000010 

001240 

001126 


001126 

001240 

001126 


#MOL ! PGM ! DPR ! DR Y ! VV , $6DDA T ;WHAT REGISTER SHOULD BE 


027734 113? jO 001224 000010 
027742 013737 001224 001240 
027750 012760 000013 000000 


027756 

027762 

027770 

027774 

030002 

030010 


005037 0 

01273 

RSH 

7 0 
\ 8 

11376 

0 C 

016037 0 


01254 

00012 


00012 


001122 

001124 

000010 

001170 


V V # WVirni * m m » nu wi ^ ww 

MOV $8DDAT.$TMP0 .'MOVE REGISTER CONTENTS TO ’$TMP0’ 

BIC #*C71700,$TMPO .'SAVE SPECIFIED BITS 

C HP $GDDA7.$TMP0 ; COMPARE THE BITS 

BEQ 64$ ;BR IF OK 

MOV $8DDAT,$TMP4 ;COPY 'BAD DATA’ 

BIC #71700.$TMP4 .'CLEAR THE MASKED BITS 

BIS $TMP4,$GDDAT .-’OR' WITH GOOD DATA FOR TYPEOUT 

EMT 1 0 

COM CKERR ;SET THE REGISTER COMPARE ERROR INDICATOR 

64$: NOP 

MOV PORTB.SEIZPT .-ADDRESS FOR ERROR MESSAGE 

MOV PORTA, OPPRT .'SAME AS ABOVE 

; RELEASE THE DRIVE FROM PORT B 

M0V8 PORTS. RMCS2(R0) .SELECT PORT B 

MOV PORTS, PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV #13,RMCS1(R0> .'ISSUE RELEASE THROUGH PORT B 

.'VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 


CLR 

MOV 

MOV 

ADD 

MOVB 

MOV 

MOV 

MOVB 

MOV 

MOV 

BEO 

TST 

BEQ 

EMT 

MOV 

MOV 

CMP 

BEQ 

EMT 

NOP 


RELERR .‘CLEAR ’RELEASE ERROR’ INDICATOR 

#ATA ! MOL ! PGM ! DPR J DR Y ! VV . $GDDAT ^COMPARISON CONSTANT 
#RMDS.$BDADR .'REGISTER ADDRESS INCREMENT 
R0.S8DADR ; REGISTER BASE ADDRESS FOR TYPEOUT 

PORTA, RMCS2CR0) ;SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) ,$TMP0 .'READ STATUS REGISTER FROM PORT A 
PORTB.RMCS2CR0) ;SELECT PORT B 

PORTB. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO),$BDDAT .‘DRIVE STATUS FROM PORT B 
66$ ;BR IF STATUS FROM PORT B ZERO 

STMPO ;JS STATUS FROM PORT A ZERO ? 

66$ ;BR IF ZERO 


66 $ 

$TMP0 

66 $ 

44 

$TMP0.$6DDAT 
PORTA.PTNBR 
SGDDAf ,$8DDAT 
67$ 

27 


; CHECK STATUS FROM PORT A 
.'CHANGE PORT ADDRESS FOR TYPEOUT 
.'COMPARE WITH CONSTANT 
;BR IF OK 


.•RELEASE THE DRIVE FROM PORT A 

MOVB PORTA, RMCS2CR0) ; SELECT PORT A 

MOV PORTA>TNBR ,'MOVl PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMCS1(R0> .'ISSUE RELEASE THROUGH PORT A 

.VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR .'CLEAR THE ’RELEASE ERROR ’ INDICATOR 

MOV #RMDS,$80ADR .'FORM THE ADDRESS OF RMDS FOR TYPEOUT 

i» SfeuPaUW* ! Mr! yv’$»OAT /0 ; CO»«lSON S CONSr»HT 

MOV 8 RMDS(fiS^$TMP2 > ; II T^THE^DRIVE* STATUS RE6ISTER FROM PORT A. 
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030016 

042737 

02-001 

001170 


BIC 

030024 

013737 

001170 

001164 


NOV 

030032 

042737 

100100 

001164 


BIC 

030040 

113760 

001226 

000010 


AOVB 

030046 

016037 

000012 

001172 


AOV 

030054 

042737 

024001 

001172 


BIC 

030062 

013737 

001172 

001166 


AOV 

030070 

042737 

100100 

001166 


BIC 

030076 

023737 

001164 

001166 


CAP 

030104 

001006 




BNE 

030106 

005737 

001164 



TST 

030112 

001045 




BNE 

030114 

104046 




EAT 

030116 

000137 

030316 



JAP 

030122 

013737 

001 1 70 

001126 

68$: 

AOV 

030130 

013737 

001226 

001240 


AOV 

030136 

113760 

001226 

000010 


AOVB 

030144 

005737 

001164 



TST 

030150 

001414 




BEQ 

030152 

013737 

001224 

001240 


AOV 

030160 

013737 

001172 

001126 


AOV 

030166 

113760 

001224 

000010 


AOVB 

0301 74 

005737 

001166 



TST 

030200 

001012 




BNE 

030202 

012737 

177777 

001254 

69$: 

AOV 

030210 

012760 

00001 1 

000000 


AOV 

030216 

012760 

000013 

000000 


AOV 

030224 

104026 




EAT 

030226 

013737 

001170 

001126 

70S: 

AOV 

030234 

013737 

001224 

001240 


AOV 

030242 

042737 

100000 

001126 


BIC 

030250 

023737 

001124 

001126 


CAP 

030256 

001401 




BEQ 

030260 

104007 




EAT 

030262 

013737 

001172 

00H26 

71$: 

AOV 

030270 

013737 

001226 

001240 


AOV 

030276 

042737 

100000 

001126 


BIC 

030304 

023737 

001124 

001126 


CAP 

030312 

001401 




BEQ 

030314 

104007 




EAT 

030316 

000240 



72$: 

NOP 

030320 

000137 

031224 



JAP 





.‘THE 

DRIVE IS 

030324 




3$: 


030324 

113760 

001224 

000010 


AOVB 

030332 

013737 

001224 

001240 


AOV 

030340 

005037 

001250 



CLR 

030344 

016037 

000012 

001126 


AOV 

030352 

012737 

000012 

001122 


AOV 

030360 

060037 

001122 



ADD 

030364 

012737 

011700 

001124 


AOV 

030372 

013737 

001126 

001164 


AOV 

030400 

042737 

106077 

001164 


BIC 

030406 

023737 

001124 

001164 


CAP 

030414 

001414 




BEQ 


SEQ 009 2 


#PIP!WRL!0A.STAP2 .CLEAR DONT CARES 

STAP2. STAPO ;COPY IT INTO ’STAPO' 

#ATA!W, STAPO .CLEAR PORT DEPENDENT BITS "ROW T HF COPY 

PORTS. RACS2(R0) .-SELECT PORT B. 

RADS(R0),STAP3 :6ET THE DRIVE STATUS REGISTER FROA PORT B. 
#PIP!WRL!£W.STAP3 .-CLEAR DONT CARES 


STAP3.STAP1 
#ATA! VV.STAP1 
STAPO. STAP1 
68S 
STAPO 
70$ 

46 

72$ 

$TAP2.$BDDAT 
PORTS. PTNBR 
PORTS. RACS2(R0) 
$TAPO 
69$ 

PORTA .PTNBR 

$TAP3,$8DDAT 

P0RTA,RACS2(R0) 

$TAP1 

70$ 

#-1 .RELERR 
#11 .RACS1 (RO) 
#13,RACS1 (RO) 
26 

$TAP2.$BDDAT 

PORTA.PTNBR 

#ATA.$BDDAT 

SGDDAT.SBDDAT 

71$ 

7 

STAP3.SBQDAT 

P0RT8.PTNBR 

#ATA,$8DDAT 

$GDDAT.$6DDAT 

72$ 

7 

4$ 


COPY IT INTO '$TAP1 
CLEAR PORT DEPENDENT BITS FROA THE COPY 
IS THE STATUS REGISTER THE SAAE FROA BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAAE: ARE THEY ZERO ? 

BR IF NOT 


OF THE CHECKS 

BAD DATA FOR ERROR AESSAGE 
TEST SHOWS DRIVE NOT IN NEUTRAL 


BYPASS THE REST 
SET UP POSSIBLE 
SEIZING PORT IF 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROA PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROA PORT B. 

BR IF NOT 

SET ’RELEASE 'RROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RADS READ 
CHANGE PORT NUABER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROA PORT A. 

CHECK RADS FOR BIT FAILURES - FROA PORT B. 
CHANGE PORT NUABER 
DON’T CHECK THE ATTN BIT 
SEE IF READ OK FROA PORT B. 

BR IF OK 


VERIFY THAT PORT B HAS PORT REQUEST SET 


PORTA. RACS2CR0) .‘SELECT PORT A 

PORTA. PTNBR ;AOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
CK ERR .‘CLEAR THE ’CHECK ERROR’ INDICATOR 

RADS(RO).$BDDAT ;GET CONTENTS OF RADS 
#RADS.$8DADR .‘FORA REGISTER ADDRESS OF ERROR AESSAGE 
R0,$BDADR .ADD RH/RA BASE ADDRESS 

#AOLIPGA!DPR!DRyJw,$GDDAT ;WHAT REGISTER SHOULD BE 


SBDDAT.STAPO 
#*C71760, STAPO 
SGDDAT, STAPO 
73$ 


v v # i fW'iTK i vn 

AOVE REGISTER CONTENTS TO 
SAVE SPECIFIED BITS 
COAPARE THE BITS 
BR IF OK 


'STAPO' 



SEQ 0093 


CZRNHAO RM80 DUAL PORT PTT MACRO V04.00 15-JAN-82 07:09:22 PA6E 9-56 
T22 SEIZE BY RMAS TEST 


C 6 


030416 

030424 

030432 

030440 

030442 

030446 

030450 

030456 


030464 

030472 

030500 


030506 

030512 

030520 

030526 

030532 

030540 

030546 

030554 

030562 

030570 

030576 

030600 

030604 

030606 

030610 

030616 

030624 

030632 

030634 

030636 


030640 

030646 

030654 


030662 

030666 

030674 

030700 

030706 

030714 

030722 

030730 

030736 

030744 

030752 


013737 

042737 

053737 

104010 

005137 

000240 

013737 

013737 


113760 

013737 

012760 


005037 

012737 

012737 

060037 

113760 

013737 

016037 

113760 

013737 

016037 

001404 

005737 

001401 

104044 

013737 

013737 

023737 

001401 

104027 

000240 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 


001126 

071700 

001174 

001250 


001 

001 


224 

226 


001224 

001224 

000013 


001254 

111700 

000012 

001122 

001226 

001226 

000012 

001224 

001224 

000012 

001164 


001164 

001226 

001124 


001174 

MOV 

SBDDAT, STMP4 

001174 

BIC 

#71700.STMP4 
STMP4, SGDDAT 

001124 

BIS 

EMT 

10 


COM 

73S: NOP 

CKERR 

001242 

MOV 

PORTA, SEIZPT 

001244 

MOV 

PORTB.OPPRT 


.•RELEASE THE 

DRIVE FROM PORT A 

000010 

MOVB 

POPTA.RMCS2(RO) 

001240 

MOV 

PORTA, PTNBR ;M 

000000 

MOV 

I13.RMCS1 CRO) 


001226 

001226 

000013 


001254 
000012 
001122 
011700 
001 224 
000012 
024001 
001170 
100100 
001226 
000012 


000010 

001240 

000000 


;C0 PY 'BAD DATA’ 

.-CLEAR THE MASKED BITS 
; ' OP ' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 

; ADDRESS FOR ERROR MESSAGE 
;SAME AS ABOVE 


; SELECT PORT A 

)VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
.•ISSUE RELEASE THROUGH PORT A 

.•VERIFY THAT DRIVE IS SEIZED BY PORT 6 WHEN RELEASED BY PORT A 

RELERR .‘CLEAR 'RELEASE ERROR* INDICATOR 

#ATA !MOL ! PGM ! DPR ! DRY ! VV ,$GDDAT .-COMPARISON CONSTANT 
fRMDS.SBDADR .‘REGISTER ADDRESS INCREMENT 
RO.SBDADR .‘REGISTER BASE ADDRESS FOR TYPEOUT 

PORTB.RMCS2(RO> ; SELECT PORT B 

PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDSCRO), STMPO .‘READ STATUS REGISTER FROM PORT B 
PORTA, RMCS2CR0) .‘SELECT PORT A 

PORTA, PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(R0),$6DDAT ; DRIVE STATUS FROM PORT A 

;BR IF STATUS FROM PORT A ZERO 
;IS STATUS FROM PORT B ZERO ? 

;BR IF ZERO 


001124 


CLR 

MOV 

001122 


MOV 

000010 


ADD 

MOVB 

001240 


MOV 

001164 


MOV 

000010 


MOVB 

001240 


MOV 

001126 


MOV 

001126 

75S: 

8EQ 

TST 

BEQ 

EMT 

MOV 

001240 


MOV 

001126 


CMP 


76$: 

BEQ 

EMT 

NOP 


75* 

STMPO 

75$ 

44 

STMPO, SBDDAT 
PORTS, PTNBR 
SGDDAT, SBDDAT 
76S 
27 


.RELEASE THE DRIVE FROM PORT 6 


; CHECK STATUS FROM PORT B 
; CHANGE PORT ADDRESS FOR TYPEOUT 
.‘COMPARE WITH CONSTANT 
;BR IF OX 


MOVB PORTB,RMCS2(RO) ; SELECT PORT B 

MOV PORTS, PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV f 13.RMCS1 (RO) .‘ISSUE RELEASE THROUGH PORT B 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

RELERR ; CLEAR THE 'RELEASE ERROR ' INDICATOR 

fRMDS.SBDADR .‘FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR ;ADD THE I/O BASE ADDRESS 

#MOL J PGM ! DPR! DR YiVV, SGDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2CR0) .‘SELECT PORT A. 

RMDS(R0),STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRL!0M.STMp2 .‘CLEAR DON T CARES 

S TMP2, STMPO .‘COPY IT INTO 'STMPO' 

f ATA !W, STMPO .‘CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTB,RMCS2(R0) .’SELECT PORT B. 

RMDS(RO) .STMP3 .‘GET THE DRIVE STATUS REGISTER FROM PORT B. 



CLR 

001122 

MOV 


ADD 

001124 

MOV 

000010 

MOVB 

001170 

MOV 

001170 

BIC 

001164 

MOV 

C01164 

BIC 

000010 

MOVB 

001172 

MOV 


SEQ 0094 


CZRNMAO RH80 DUAL PORT PT1 NACRO V04.00 15-JAN-82 07:09:22 PAGE 9-57 
T22 SEIZE BY RNAS TEST 


030760 
030766 
030774 
031002 
031 01 C 
031012 
031016 
031020 
031022 
031026 
031034 
031042 
031050 
031054 
031056 
031064 
031072 
031100 
031104 
031106 
031114 
031122 
031130 
071132 
031140 
031146 
031154 
031162 
031164 
031166 
031174 
031202 
031210 
031216 
031220 
031222 
031224 


042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


024001 

001172 

100100 

001164 

001164 


031222 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


031226 

031226 005737 001300 
031232 001406 
031234 100002 
031236 000137 003062 


BIC 

#PIP!WRL!0N,$TNP3 

NOV 

STNP3.STNP1 

BIC 

#ATA! W.STNP1 

CNP 

STNP0.STNP1 

BNE 

77$ 

TST 

STNPO 

BNE 

79$ 

ENT 

46 

JNP 

81$ 

NOV 

$TNP2.$80DAT 

RCV 

PORTB.PTNBR 

N0V8 

PORTB,RNCS2(RO) 

TST 

$TNPO 

BEQ 

78$ 

NOV 

PORTA. PTNBR 

NOV 

$TNP3.$BDDAT 

NOVB 

PORTA, RNCS2CR0) 

TST 

$TNP1 

BNE 

79$ 

NOV 

#-1 .RELERR 

NOV 

m.RNCSKRO) 

NOV 

#13.RNCS1 (RO) 

ENT 

26 

NOV 

$TNP2,$BDDAT 

NOV 

PORTA, PTNBR 

BIC 

#ATA,$fiDDAT 

CNP 

$GDDAT,$BDDAT 

BEQ 

80$ 

ENT 

7 

NOV 

$TNP3.$BDDAT 

NOV 

PORTB.PTNBR 

BIC 

#ATA,$6DDAT 

CNP 

$GDDAT.$6DDAT 

BEQ 

81$ 

ENT 

7 

NOP 


SCOPE 

i 

23 

INHIBIT SEIZE BY 


.•CLEAR DONT CARES 
COPY IT INTO *$TNP1 ' 

CLEAR PORT DEPENDENT BITS /RON THE COPY 

IS THE STATUS REGISTER THE SANE FRO* BOTH PORTS ? 

8R IF NOT 

REGISTERS ARE THE SANE: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BmD DATA FOR ERROR NESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FRON PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FRON PORT B. 

BR IF NOT 

SET ’RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RNDS READ 
CHANGE PORT NUNBER 
DON’T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FRON PORT A. 

CHECK RNDS FOR BIT FAILURES - FRON PORT B. 

CHANGE PORT NUNBER 
DON’T CHECK THE ATTN BIT 
SEE IF READ OK FRON PORT 8. 

BR IF OK 


.-LOOP ? 


•VERIFY THAT THE DRIVE IS NOT SEIZED WHEN A ’ZERO’ IS WRITTEN INTO 

* THE DRIVE’S ATTENTION BIT. 

* A. SELECT A DRIVE NOT BEING TESTED AND WRITE ALL BITS. EXCEPT THE 

* BIT OF THE DRIVE BEING TESTED. INTO THE ATTENTION REGISTER. 


;* B. 

;t 

VERIFY 

THAT THE DRIVE 

IS STILL IN NEUTRAL. 

TST23: 





T5T 

KYBCTL 

.-PERFORNING ONLY SINGLE TEST ? 


BEQ 

2$ 

;BR IF NOT 


BPL 

1$ 

;8R IF JUST ENTERED TEST 


JNP 

EXEC 

.-RETURN t GET NEXT TEST NUNBER 

1$: 

NOV 

f-1 .KYBCTL 

;SET SINGLE TEST INDICATOR 


SEO u- 


CZfNHAG 

T25 


806 

821 


RM80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07 : 09:22 PAGE 9-5^ 
INHIBIT SEIZE BY RNAS TEST 


031 264 


031264 

001106 

2f: 

MOV 

031264 

001110 

TEST23: 

MOV 

000023 

001102 


HO VS 

001100 



MOV 

000012 

001176 


NOV 


#TEST23,fLPADR 

#TEST23,fLPERR 

#23,fTSTNN 
#STACK,SP 
#10., STINES 


.•SETUP SCOPE LOOP AODRESS 
; SETUP ERROR LOOP ADDRESS 

.•MOVE #23 TO TEST NUMBER 
.'LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


.•CLEAR ATTENTION BITS FOR BOTH PORTS 


031304 

031312 

031316 

031324 

031332 

031340 

031344 

031352 

031360 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 

113760 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 

001230 


031366 013737 001236 
031374 005137 001164 
031400 013760 001164 


031406 

031412 

031420 

031424 

031432 

031440 

031446 

031454 

031462 

031470 

031476 

031504 

031512 

031520 

031526 

031534 

031536 

031542 

031544 

031546 

031552 

031560 

031566 

031574 

031600 

031602 

031610 

031616 

031624 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

*13760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 


000010 

N0V8 

PORTA, RMCS2CR0) 

SELECT PORT #A 


CLR 

RMDS(RO) 

SEIZE THE DRIVE 

000000 

MOV 

#11 ,RMCS1 (RO) 

ISfUE DRIVE CLEAR 

000000 

MOV 

#13,RMCS1(R0) 

RELEASE THE DRIVE 

000010 

MOVB 

PORTS, RMCS2CR0) 

SELECT PORT #8 


CLR 

RMDS(RO) 

SEIZE THE DRIVE THR0U6H PORT '8 

000000 

MOV 

#11,RMCS1(R0) 

ISSUE DRIVE CLEAR 

000000 

MOV 

#13,RMCS1 (RO) 

RELEASE THE DRIVE 

000010 

MOVB 

P0RTC,RNCS2(R0) 

SELECT DRIVE NOT BEING TESTED 


.-WRITE ALL ATTENTION BITS EXCEPT BIT FOR DRIVE UNDER TEST 

001164 

MOV 

ASR1 .fTMPO 

STORE ATTN BIT FOR PORT A 


COM 

fTMPO 

COMPLEMENT IT 

000016 

MOV 

fTMPO, RMAS(RO) 

WRITE THE ATTN REGISTER 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


031746 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 


.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


001122 

CLR 

MOV 

001124 

ADD 

MOV 

000010 

MOVB 

001170 

MOV 

001170 

BIC 

001164 

MOV 

001164 

BK 

000010 

MOVB 

001172 

MOV 

001172 

BIC 

001166 

NOV 

001166 

BIC 

001166 

CMP 

001126 64f: 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

001240 

MOV 

000010 

MOVB 

001240 

TST 

BEQ 

NOV 

001126 

MOV 

000010 

MOVB 


TST 


RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,fBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0,$8DADR .-ADD THE I/O BASE ADDRESS 

#MOL ! PGM ! DPR ! DRY ! VV.SGDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2(R0) .-SELECT PORT A. 

RMDS(RO) ,fTNP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!«RL‘0M,$TMP2 .‘CLEAR DONT CARES 

$TMP2,$TNP0 .-COPY IT INTO 'fTMPO' 

#ATA!VV,STMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2(RG) .SELECT PORT B. 

RMDS(R0),fTHP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL!ON.fTMP$ .CLEAR DONT CARES 


STMP3, fTMPI 
#ATA‘VV, fTMPI 
fTNPO, fTMPI 
64f „ 
fTMPO 
66f 
46 
68f 

fTMP2,f6DDAT 

PORTB.PTNBR 

PORTS. RHCS2CR0) 

fTMPO 

65f 

P0RTA.PTN8R 

$TMP3,*8DDAT 

P0RTA,RMCS2(R0) 

fTMPI 


COPY IT INTO 'fTMPI' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

gf| IP PIQJ 

REGISTERS ARE THE SAME: ARE THEY 2ER0 ? 

8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

8R IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
’BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE Ir STATUS EQ ZERO FROM PORT B. 


i. 


L 


SEO 0096 


Ci'RNHAO RM80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-59 
T23 INHIBIT SEIZE BY RMAS TEST 


031630 
031632 
031640 
031646 
031654 
031656 
031 6c; 
031672 
031700 
031706 
031710 
031712 
031720 
031726 
031734 
031742 
031744 
031746 
031750 


001012 

012737 

012760 

012760 

104021 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


177777 

000011 

000C13 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


BNE 66$ 

MOV #-1,RELERR 

MOV #11 .RMCS1 (RO) 

MOV #13.RMCS11R0) 

EMT 21 

MOV STMP2.SBDDAT 

MOV PORTA.PTNBR 

BIC #ATA.$8DDAT 

CMP $GDDAT,$BDDAT 

BEO 67$ 

ENT 7 

MOV $TMP3.$8DDAT 

MOV PORTB.PTNBR 

BIC #ATA.$BDDAT 

CMP $GDDAT.$BDDAT 

BEQ 68$ 

EMT 7 

NOP 

SCOPE 


BR IF NOT 

SET ’RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 


CHECK RMDS FOR BIT FAILURES 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ UK FROM PORT B. 
BR IF OK 


.-LOOP ? 


- FROM PORT B. 


5737 001300 
1406 


7 177777 
12737 032010 
g02 012737 032010 

010 112737 000024 
032016 012706 001100 
032022 012737 000012 


001300 

001106 

001110 

001102 

001176 


******************** ********** t*********** ********************* 

TEST 24 SET PORT 'A' REQUEST TEST 

VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE 
DRIVE IS SEIZED BY THE OTHER PORT. 

A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RMDS. 

B. WRITE O'S INTO RMDS FROM PORT 'A'; VERIFY THAT THE DRIVE IS STILL 
SEIZED BY PORT 'B\ 

C. ISSUE A RELEASE COMMAND FROM PORT 'B' AND VERIFY THAT THE DRIVE 
SWITCHED TO PORT 'A'. VERIFY THAT THE ATTENTION BIT IS SET FOR 
PORT 'A' AND IS NOT SET FOR PORT *B'. 

D. ISSUE A RELEASE COMMAND THROUGH PORT 'A* AND VERIFY THAT *HE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TST24: 


TEST24: 


M0V8 

MOV 

MOV 


KYBCTL 

2 $ 

1 $ 

EXEC 

#-1 .KYBCTL 

#TEST24.$LPADR 

#TEST24,$LPERR 

#24.$TSTNM 

fSTACX.SP 

#10.,$TIMES 


PERFORMING ONLY SINGLE TEST ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN l GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #24 TO TEST WflBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 


032030 113760 001224 000010 


.•CLEAR ATTENTION BITS FOR BOTH PORTS 

M0V8 PORTA. RMCS2(R0) .-SELECT PORT #A 


SEQ 0097 


URNHAG 

T24 
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032056 

032042 

032050 

032056 

032064 

032070 

032076 


032104 

032112 

032120 

032124 

032132 

032140 


005060 

012760 

012760 

113750 

0C506G 

012760 

012760 


113760 

013737 

005060 

013737 

113760 

013737 


000012 

000011 

000013 

001226 

000012 

000011 

000013 


001226 

001226 

000012 

001224 

001224 

001224 


032174 

032200 

032206 

032214 

032220 

032226 

032234 

032242 

032250 

032256 

032264 

032266 

032272 

032274 

032276 

032304 

032312 

032320 

032322 

032324 

032326 

032334 

032342 

032346 

032354 

032362 


005037 

012737 

012737 

060037 

113760 

013737 

016037 

113760 

013737 

016037 

001404 

005737 

001401 

104031 

013737 

013737 

023737 

001401 

104027 

000240 

m 

005037 

016037 

012737 

060037 


000000 

000000 

000010 

000000 

000000 


000010 

001242 

001244 

000010 

001240 


032146 005060 000012 


032152 113760 001226 000010 
032160 013737 001226 001240 
032166 012760 000013 000000 


001254 

111700 

000012 

001122 

001224 

001224 

000012 

001226 

001226 

000012 

001164 


001164 

001224 

001124 


001124 

001122 

000010 

001240 

0*1164 

000010 

001240 

001126 


001126 

001240 

001126 


001226 000010 
001226 001240 
001250 

000012 001126 
000012 001122 
001122 


CLR RMDS(RO) 

MOV fll.RMCSKRO) 

MOV #13.RNCS1(R0) 

MOVB PORT8,RMCS2(RO) 

CLR RMDS(RO) 

MOV fll.RMCSI (RO) 

MOV #13,RNC$1 (RO) 

; SEIZE THE DRIVE THROUGH PORT B 


SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT #8 

SEIZE THE DRIVE THROUGH PPRT '8' 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


MOVB PORT8,RNCS2(R0> .-SELECT PORT B 

MOV PORTB.SEIZPT .-STORE SEIZING PORT'S ADDRESS 

CLR RMDS(RO) .-WRITE RMDS 

MOV PORTA, OPPRT .-'OPPOSITE' PORT ADDRESS 

MOVB PORTA, RNCS2(R0) ;SELECT PORT A 

MOV PORTA, PTNBR ;MOvl PORT ADDRESS TO LOCATION FOR TYPEOUT 


.-SET PORT REQUEST 

CLR RMDS(RO) 


.-SET PORT REQUEST FOR PORT A 


.-RELEASE THROUGH PORT B. DRIVE SHOULD SWITCH TO PORT A. 

.-RELEASE THE DRIVE FROM PORT B 

MOVB PORT8.RMCS2(R0) iSELECT PORT B 

NOV PORTB, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT B 

.-VERIFY THAT DRIVE IS SEIZED BY PORT A WHEN RELEASED BY PORT B 

RELERR .-CLEAR 'RELEASE ERROR' INDICATOR 

#ATA ! MOL ! PGR ! DPR ! DRY ! V V . SGDDAT .-COMPARISON CONSTANT 
fRMDS.SBDADR ; REGISTER ADDRESS INCREMENT 
RO.SBDADR .-REGISTER BASE ADDRESS FOR TYPEOUT 

PORTA, RMCS2(R0) zSELECT PORT A 

PORTA.PTNBR ;MOVfc PORT ADDRESS TO LOCATION FOR TYPEOUT 
rmds(Ao) ,$tmp& .-read STATUS REGISTER FROM PORT A 
PORTB, RMCS2(R0) .“SELECT PORT B 

PORTB.PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(&0) ,$BDDAT .DRIVE STATUS FROM PORT B 
66$ ,*BR IF STATUS FROM PORT B ZERO 

STMFH) ;IS STATUS FROM PORT A ZERO ? 

66$ ;BR IF ZERO 

STMPO.SBDDAT ; CHECK STATUS FROM PORT A 

; CHANGE PORT ADDRESS FOR TYPEOUT 

; COMPARE WITH CONSTANT 
;BR IF OK 


66 $: 


67$: 


CLR 

NOV 

NOV 

ADD 

MOVB 

NOV 

NOV 

MOVB 

MOV 

MOV 

BEO 

TST 

BFQ 

EMT 

MOV 

MOV 

CMP 

BEQ 

EMT 

NOP 

MOVB 

MOV 

CLR 

MOV 

NOV 

ADD 


PORTA.PTNBR 
SGDDAT ,$8DDAT 
67$ 

27 


PORTB, RMCS2CR0) ;SELECT PORT B „ „ „ 

PORTB.PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR’ INDICATOR 

RMDS(RO) .SBDDAT -GET CONTENTS OF RMDS _ 

fRMDS.SBDADR .‘FO&M RE6ISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR .-ADD RH/RM BASE ADDRESS 
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032566 
032372 
032400 
032406 
03241 4 
032416 
032424 
032432 
032440 
032442 
032446 
032450 
032456 
032464 
032470 
032476 
032504 
032510 
032516 
032524 
032532 
032540 
032542 
032550 
032556 
032564 
032566 
032572 


032574 

032602 

032610 


032616 

032622 

032630 

032634 

032642 

032650 

032656 

032664 

032672 

032700 

032706 

032714 

032722 

032730 

032736 

032744 

032746 

032752 

032754 

032756 


005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104016 

005137 

000240 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104016 

005137 

000240 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

If 

005737 

001045 

104046 

000137 


001124 



CLR 

SGDDAT 

001126 

001164 


MOV 

S8DDAT. STMPO 

077777 

001164 


BIC 

fCATA, STMPO ;! 

001124 

001164 


CMP 

SGC DAT, STMPO 



BEO 

6SS 

001126 

001174 


MOV 

SBD0AT.STMP4 
#ATA.STHP4 
STMP4. SGDDAT 

100000 

001174 


BIC 

001174 

001124 


BIS 



EMT 

16 

001250 



COM 

CKERR 


68S: 

NOP 


001224 

000010 


M0V8 

PORTA, RMCS2(R0) 

001224 

001240 


MOV 

PORTA, PTNBR ,‘M 

001250 



CLR 

CKERR 

000012 

001126 


MOV 

RMDS(RO),SBDDAT 

000012 

001122 


MOV 

fRMDS.SBDADR ;l 

001122 



ADD 

RO.SBDADR 

100000 

001124 


MOV 

fATA. SGDDAT ;W 

001126 

001164 


MOV 

SBDDAT, STMPO 

077777 

001164 


BIC 

fCATA. STMPO ; 

001124 

001164 


CMP 

SGDDAT, STMPO 




BEQ 

70S 

001126 

001174 


MOV 

SBDDAT, STMPt 

100000 

001174 


BIC 

#ATA,STMP4 

001174 

001124 


BIS 

STMP4. SGDDAT 




EMT 

16 

001250 



COM 

CKERR 



70S: 

NOP 



;UHAT REGISTER SHOULD BE 

.‘MOVE REGISTER CONTENTS TO ' STMPO ’ 

►AVE SPECIFIED BITS 
.COMPAAE THE BITS 
;BR IF OK 
;COPY ’BAD DATA' 

.‘CLEAR THE MASKED BITS 
; *0R' WITH GOOD DATA FOR TYPE OUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


;SELECT PORT A 
)VE PORT ADDRESS TO LOCAT. 
; CLEAR TMg 'CHECK ERROR' 
;GET CONTENTS OF RMDS 
ORM REGISTER ADDRESS OF I 
.ADD RH/RH BASE ADDRESS 


INDICATOR 


.‘MOVE REGISTER CONTENTS TO 'STMPO' 

>AVE SPECIFIED BITS 
.COMPARE THE BITS 
;BR IF OK 
.•COPY 'BAD DATA' 

.•CLEAR THE MASKED BITS 
; 'OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


.RELEASE THE DRIVE FROM PORT A 


001224 

000010 

M0V8 

001224 

001240 

MOV 

000013 

000000 

MOV 



.VERIFY THAT 

001254 


CLR 

000012 

001122 

MOV 

001122 


ADD 

011700 

001124 

MOV 

001224 

000010 

M0V8 

000012 

001170 

MOV 

024001 

001170 

BIC 

001170 

001164 

MOV 

100100 

001164 

BIC 

001226 

000010 

M0V8 

000012 

001172 

MOV 

024001 

001172 

BIC 

001172 

100100 

001166 

MOV 

001166 

BIC 

001164 

001166 

CMP 



BNE 

001164 


TST 



BNE 



EMT 

033142 


JMP 


PORTA, RHC$2(R0) ; SELECT PORT A 

PORTA. PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
813.RMCS1 (RO) .ISSUE RELEASE THROUGH PORT A 


RELERP .’CLEAR THE 'RELEASE ERROR ' INDICATOR 

fRMDS.SBDADR .’FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR .‘ADD THE I/O BASE ADDRESS 

fMOL ! PGM! DPR! DRV !VV, SGDDAT .-COMPARISON CONSTANT 
PORTA. RMCS2(R0) .‘SELECT PORT A. 

RMDS(ftO).STMP2 ;6ET THE DRIVE STATUS REGISTER FROM PORT A. 

fPIP ;WRL!0M.$TMP2 .‘CLEAR DONT CARES 

$TMP2,*TNP0 .‘COPY IT INTO 'STMPO' 

fATAJW. STMPO .‘CLEAR PORT DEPENDENT BITS FROM THE COPY 

P0RT8,RMCS2(RQ) .SELECT PORT B. 

RMDS(M».STNP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRl!0M.STMP5 .-CLEAR DONT CARES 


STMP3.STMP1 
fATA.'W.STMPI 
STMPO. STMP1 
72S 
STMPO 
74S 
46 
76S 


.’COPY IT INTO 'STMP1 ' 

.CLEAR PORT DEPENDENT BITS FROM THE COPY 

;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

*SR IF NOT 

‘REGISTERS ARE THE SAME: ARE THEY ZERO ? 

;BR IF NOT 

.‘BYPASS THE REST OF THE CHECKS 
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SEQ QQi-J 


032762 

013737 

001170 

001126 

72S: 

MOV 

STMP2.SBDDAT 

SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

032770 

013737 

001226 

001240 


MOV 

PORTB.PTNBR 

SEIZIN6 PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

032776 

113760 

001226 

000010 


MOVE 

PORTB.RMC ?(R0) 

SELECT PORT B. 

033004 

005737 

001164 



TST 

STMPO 

SEE IF STATUS EQ 0 FROM PORT A. 

033010 

001414 




BEQ 

73$ 

BR IF ZERO 

033012 

013737 

001224 

001172 

001240 


MOV 

PORTA. PTNBR 

SEIZIN6 PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

033020 

013737 

001126 


MOV 

STMP3.S6DDAT 

'BAD DATA' FOR ERROR TYPE OUT 

033026 

113760 

001224 

000010 


M0V8 

PORTA. RHCS2CR0) 

SELECT PORT A. 

033034 

005737 

001166 



TST 

STMP1 

SEE IF STATUS EQ ZERO FROM PORT B. 

033040 

001012 



73$: 

BNE 

74$ 

BR IF NOT 

033042 

012737 

177777 

001254 

MOV 

#-1 .RELERR 

SET 'RELEASE ERROR' INDICATOR 

033050 

012760 

000011 

000000 


MOV 

#11.RMCS1(R0) 

CLEAR THE DRIVE 

033056 

012760 

000013 

000000 


MOV 

I13.RMCS1 (RO) 

RELEASE THE DRIVE 

033064 

104026 




EMT 

26 


033066 

013737 

001170 

001126 

74$: 

MOV 

STMP2.S8DDAT 

LOOK FOR BIT FAILURES WHEN RMDS READ 

033074 

013737 

001224 

001240 


MOV 

PORTA, PTNBR 

CHANGE PORT NUMBER 

033102 

023737 

001124 

001126 


CMP 

SGDDAT.SBDDAT 

ALL BITS OK ? 

033110 

001401 




BEQ 

75$ 

BR IF OK FROM PORT A. 

033112 

104007 




EMT 

7 


033114 

013737 

001172 

001126 

75$: 

MOV 

STMP3.SBDDAT 

CHECK RMDS ►OR BIT FAILURES - FROM PORT B. 

033122 

013737 

001226 

001240 


MOV 

PORTB.PTNBR 

CHANGE PORT NUMBER 

033130 

023737 

001124 

001126 


CMP 

SGDDAT.SBDDAT 

SEE IF READ OK FROM PORT B. 

033136 

001401 




BEQ 

76$ 

BR IF OK 

033140 

104007 




EMT 

7 


033142 

000240 



76$: 

NOP 



033144 

000004 



1$: 

SCOPE 


rLOOP ? 


033146 

033146 

033152 

033154 

033156 

033163 

033170 

033176 

hk 


505737 001300 
J01406 


112737 

112737 

112737 


033204 

033204 


001300 

001106 

001110 


112737 000025 001102 


TEST 25 


SET PORT 'B' REQUEST TEST 


.••VERIFY THAT WRITING A DRIVE REGISTER SETS 'PORT REQUEST' WHEN THE 
;• DRIVE IS SEIZED BY THE OTHER PORT. 

•* 

;* A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

;* 

;* B. WRITE O'S INTO RMDS FROM PORT 'B'; VERIFY THAT THE DRIVE IS STILL 
;* SEIZED BY PORT 'A'. 

; * 

;* C. ISSUE A RELEASE COMMAND FROM PORT 'A' AND VERIFY THAT THE DRIVE 
;* SWITCHED TO PORT 'B'. VERIFY THAT THE ATTENTION BIT IS SET FOR 
;* PORT 'B' AND IS NOT SET FOR PORT 'A'. 

;* 

;* D. ISSUE A RELEASE COMMAND THROUGH PORT 'B' AND VERIFY THAT THE DRIVE 
;* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

;* 

*************************************** 

TST25: 


TEST25: 


TST KYBCTL 

BEQ 2S 

BPL IS 

JMP EXEC 

MOV #-1,KYBCTL 

MOV #TEST25.$LPADR 

MOV #TEST25,$LPERR 

M0V8 #25,$TSTNM 


PERFORMING ONLY SINGLE TEST ? 
SR IF NOT 

BR IF JUST ENTERED TEST 
RETURN £ GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #25 TO TEST NUMBER 


S£0 0100 


C/ftNHAU HHtfu DUAL PORI PT1 MACRO V 04.00 15- JAM-82 07:09:22 PAGE 9-63 
T25 SET PORT ’8’ REQUEST TEST 


J 8 


894 

895 


033212 

033216 


0127°6 

012737 


001100 

000012 


001176 


NOV 

NOV 


fSTACK.SP 
#10.. STINES 


.’LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


.CLEAR ATTENTION BITS FOR BOTH PORTS 


033224 

113760 

001224 

000010 

N0V8 

PORTA,RNCS2(R0) 

033232 

005060 

000012 


CLR 

RNDS(RO) 

033236 

012760 

000011 

000000 

NOV 

#11.RNCS1(R0) 

033244 

012760 

000013 

000000 

NOV 

#13,RMCS1 (RO) 

033252 

113760 

001226 

000010 

N0V8 

PORTB.RNCSZ(RO) 

033260 

005060 

000012 


CLR 

RNDS(RO) 

033264 

012760 

000011 

000000 

NOV 

fll.RNCSI (RO) 

033272 

012760 

000013 

000000 

NOV 

#13,RMCS1 (RO) 





.SEIZE THE DRIVE THROUGH PORT A 

033300 

113760 

001224 

000010 

NO VS 

PORTA, RNCS2(R0) 

033306 

013737 

001224 

001242 

NOV 

PORTA. SEIZPT 

033314 

005060 

000012 


CLR 

RNDS(RO) 

033320 

013737 

001226 

001244 

NOV 

P0RT8.0PPRT 

033326 

113760 

001226 

000010 

NO VS 

PORTS. RMCS2(R0) 

033334 

013737 

001226 

001240 

NOV 

PORTS. PTNBR ;M 





.-SET PORT REQUEST 

033342 

005060 

0u0012 


CLR 

RNDS(RO) 


SELECT PORT #A 

SEIZE THE DRIVE 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 

SELECT PORT #B 

SEIZE THE DRIVE THROUGH PORT 

ISSUE DRIVE CLEAR 

RELEASE THE DRIVE 


• 8 * 


.’WRITE RMDS 

OPPOSITE* PORT ADDRESS 
’SELECT PORT B 

)VE PORT ADDRESS TO LOCATION FOR TYPEOUT 


; SET PORT REQUEST FOR PORT B 


033346 113760 001224 
033354 013737 001224 
033362 012760 000013 


033370 

033374 

033402 

033410 

033414 

0534^6 

033444 

033452 

033460 

033462 

033466 

033470 

033472 

033500 

033506 

033514 

033516 


005037 

012737 

012737 

060037 

113760 

013737 

016037 

113760 

013737 

016037 

001404 

005737 

001401 

104031 

013737 

013737 

023737 

001401 

104027 


001254 

111700 

000012 

001122 

001226 

001226 

000012 

001224 

001224 

000012 

001164 


001164 

001226 

001124 


000010 

001240 

000000 


001124 

001122 

000010 

001240 

001164 

000010 

001240 

001126 


001126 

001240 

001126 


; RELEASE THROUGH PORT A. DRIVE SHOULD SWITCH TO PORT B. 

.•RELEASE THE DRIVE FROR PORT A 

N0V8 PORTA, RNCS2(R0) ;SELECT PORT A 

NOV PORTA, PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
NOV 513.RNCSKR0) .’ISSUE RELEASE THROUGH PORT A 

.’VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 

RELERR ; CLEAR ’RELEASE ERROR* INDICATOR 

#ATA ! NOL ! PGN ! DPR ! DR Y ! VV , $GDDAT ,’CONPARISON CONSTANT 
fRNDS.SBDADR ; REGISTER ADDRESS INCRENENT 
R0.S8DADR ; REGISTER BASE ADDRESS FOR TYPEOUT 

PwT8,RNCS2(R0) .SELECT PORT B 

PORTS. PTNBR :NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RNDS(60),STNP6 .’READ STATUS REGISTER PROS PORT B 
PORTA, RNCS2CR0) ;SELECT PORT A 

PORTA, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
RNDSr.2).$BDDAT .-DRIVE STATUS FRON PORT A 


66 $: 


CLR 

NOV 

NOV 

ADD 

N0V8 

NOV 

NOV 

N0V8 

NOV 

NOV 

BEQ 

TST 

BEQ 

ENT 

NOV 

NOV 

CMP 

BEQ 

ENT 


66 $ 

$TM PO 
66 $ 

31 „ 

$TNPO.$BDDAT 
PORTS, PTNBR 
$GDDAT,$8DDAT 
67$ 

27 


;§R IF STATUS FRON PORT A ZERO 
;IS STATUS FRON PORT B ZERO ? 

;BR IF ZERO 

.-CHECK STATUS FRON PORT B 
; CHANGE PORT ADDRESS FOR TYPEOUT 
; COMPARE WITH CONSTANT 
;BR IF OK 


j 



SEO 0101 
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033520 

m 

033536 

033542 

033550 

033556 

033562 

033566 

033574 

033602 

C33610 

033612 

033620 

033626 

033634 

033636 

033642 

033644 

033652 

033660 

033664 

033672 

033700 

033704 

033712 

033720 

033726 

033734 

033736 

033744 

033752 

033760 

033762 

033766 


033770 

033776 

034004 


034012 

034016 

034024 

034030 

034036 

034044 

034052 

034060 

034066 

034074 

034102 

034110 

034116 


000240 

113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104016 

005137 

000240 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104016 

005137 

000240 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

m 


001224 

001224 

001250 

000012 

000012 

001122 

001124 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001226 

001226 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 


001226 

001226 

000013 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 


000010 

001240 

001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


000010 

001240 

000000 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 


NOP 

novb 

NOV 

CLR 

NOV 

NOV 

ADD 

CLR 

NOV 

BIC 

CNP 

BEQ 

NOV 

BIC 

BIS 

ENT 

CON 

NOP 

NOVB 

NOV 

CLR 

NOV 

NOV 

ADD 

NOV 

NOV 

BIC 

CNP 

BEO 

NCV 

BIC 

BIS 

ENT 

CON 

NOP 


PORTA, RNCS2(R0) ;SELtCT PORT A 

PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .-CLEAR THE ’CHECK ERROR* INDICATOR 

RNDS(R0).S8DDAT ;GET CONTENTS OF RNDS 

fRMDS.SBDADR ;FORN REGISTER ADDRESS OF ERROR NESSAGE 

RO.SBDADR ;ADD RH/RM BASE ADDRESS 

S6DDAT ;UHAT REGISTER SHOULD BE 

SBDDAT.STNPO ;NOVE REGISTER CONTENTS TO ’$TNPO’ 

#*CATA, STNPO .-SAVE SPECIFIED BITS 

SGDDAT, STNPO ,-CONPARE THE BITS 

68S 'BR if OK 

S8DDAT.STNP4 -COPY ’BAD DATA* 

#ATA,STNP4 .-CLEAR THE MASKED BITS 

STMP4, SGDDAT ;’0R’ WITH GOOD DATA FOR TYPEOUT 

16 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


PORTS, RNCS2CR0) ;SELECT PORT B 

P0RT8, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RNDS(RO) .S8DDAT ; GET CONTENTS OF RNDS 

f RNDS, S8D ADR .-FORM REGISTER ADDRESS OF ERROR NEC SAGE 

R0.S8DADR .-ADD RH/RM BASE ADDRESS 

#ATA, SGDDAT ;UHAT REGISTER SHOULD BE 

SBDDAT.STNPO .-MOVE REGISTER CONTENTS TO ' STNPO' 

#*CATA, STNPO .-SAVE SPECIFIED BITS 

SGDDAT, STNPO .’COMPARE THE BITS 

70S ;BR IF OK 

S8DDAT.STNP4 .-COPY 'BAD DATA* 

#ATA.STNP4 ; CLEAR THE MASKED BITS 

STMP4, SGDDAT ;’0R' WITH GOOD DATA FOR TYPEOUT 

16 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


.-RELEASE THE DRIVE FROM URT B 


NOVB PORTB,RNCS2(RO) ;SELECT PORT B 

NOV PORTS. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
NOV #13.RNCS1 (R0> .-ISSUE RELEASE THROUGH PORT B 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

NOV fRMDS.SBDADR ;FORN THE ADDRESS OF RNDS FOR TYPEOUT 

ADD RO.SBDADR .’ADD THE 1/0 BASE ADDRESS 

NOV #NOL ! PGM !CPR! DRY? VV. SGDDAT .-COMPARISON CONSTANT 

NOVB PORTA, RNCS2(R0) .-SELECT PORT A, 

NOV RMDS<$0).STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
BIC #PIP!WRt!QH.STNP$ .-CLEAR DONT CARES 

NOV STNP2, STNPO .-COPY IT INTO 'STNPO' 

BIC #ATA!VV, STNPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 

NOVB PORTB,RNCS2(RO) .-SELECT PORT B. 

NOV RNDS(RO) -STNP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
BIC #PIr-! WRL! ON. STMP$ .-CLEAR DONT CARES 

NOV STNP3.STNP1 .-COPY IT INTO 'STMP1 


J 



SEQ 0102 


URN At) 

T25 


899 

918 

919 
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034124 

042737 

100100 

001166 


BIC 

#AI*iVV,$TNPI 

034132 

023737 

001164 

001166 


CMP 

STMP0.STNP1 

034140 

001006 




BNE 

72$ 

034142 

005737 

001164 



TST 

$TMPO 

034146 

001045 




BNE 

74$ 

034150 

104046 




EMT 

46 

034152 

000137 

034336 



JMP 

76$ 

034156 

013737 

001170 

001126 

72$: 

MOV 

$TMP2.$BDDAT 

034164 

013737 

001226 

001240 


MOV 

PORTS, PTNBR 

034172 

113760 

001226 

000010 


MOVB 

PORTB.RMCS2CRO) 

034200 

005737 

001164 



TST 

$TNPO 

034204 

001414 




BEQ 

73$ 

034206 

013737 

001224 

001240 


MOV 

PORTA, PTNBR 

034214 

013737 

001172 

001126 


MOV 

STMP3.SBDDAT 

034222 

113760 

001224 

000010 


MOVB 

PORTA. RMCS2CR0) 

034230 

005737 

001166 



TST 

$TMP1 

034234 

001012 




BNE 

74$ 

034236 

012737 

177777 

001254 

73$: 

MOV 

f-I.RELERR 

034244 

012760 

000011 

000000 


NOV 

fll.RMCSKRO) 

034252 

012760 

000013 

000000 


MOV 

A13.RMCS1 (RO) 

034260 

104026 




EMT 

26 

034262 

013737 

001170 

001126 

74$: 

MOV 

$TMP2,$BDDAT 

034270 

013737 

001224 

001240 


MOV 

PORTA, PTNBR 

034276 

023737 

001124 

001126 


CMP 

SGDDAT.SBDDAT 

034304 

001401 




BEQ 

75$ 

034306 

104007 




EMT 

7 

034310 

013737 

001172 

001126 

75$: 

MOV 

$TMP3,$BDDAT 

034316 

013737 

001226 

001240 


MOV 

PORTB, PTNBR 

034324 

023737 

001124 

001126 


CMP 

SGDDAT.SBDDAT 

034332 

001401 




BEQ 

76$ 

034334 

104007 




EMT 

7 

034336 

000240 



76$: 

NOP 


034340 

000004 



1$: 

SCOPE 



CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS HE6ISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
’BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

SEE IF READ OK FROM PORT B. 

BR IF OK 


.•LOOP ? 


034342 

034342 

034346 


005737 

001406 


001300 


TEST 26 


TEST RESET ATTENTION 'A' BY DRIVE CLEAR 


VERIFY THAT A DRIVE CLEAR COMMAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 

A. SET EACH PORT *S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
SET. 

B. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

C. ISSUE A DRIVE CLEAR COMMAND. 

D. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE ATTENTION 
BIT FOR PORT 'A' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
•8' IS STILL SET. 


tST26: 


TST 

BEO 


KY8CTL 

2 $ 


.•PERFORMING ONLY SINGLE TEST ? 
;8R IF NOT 
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034350 
034352 
034356 
034364 
034 372 
034400 
034400 
034406 
034412 
920 
953 


m 8 


SEQ 0103 


100002 



BPL 

1$ 

000137 

003062 


JMP 

EXEC 

012737 

177777 

001300 

1$: MOV 

#-1 .KYBCTL 

012737 

034400 

001106 

2$: MOV 

#TEST26,$LPADR 

012737 

034400 

001110 

MOV 

#TEST26.$LPERR 




TEST26: 


112737 

000026 

001102 

MOVB 

#26,$TSTNM 

01 2706 

001100 


MOV 

#STACK,SP 

012737 

000012 

001176 

MOV 

#10. ,$TIHES 


;BR IF JUST ENTERED TEST 
,-RETURN ft GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.•SETUP ERROR LOOP ADDRESS 

.-MOVE #26 TO TEST NUMBER 
.-LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


034420 
034426 
034432 
C 344 34 
034442 
034446 
034454 
034460 
034462 
034470 
034474 
034502 
034506 


034510 

034516 

034524 

034530 

034536 

034544 

034550 

034556 

034564 

034572 

034600 

034602 

034610 

034616 

034624 

034626 

034632 

034634 

034640 

034642 

034646 

034654 

034662 

034666 

034674 

034702 

034706 

034714 


113760 

005760 

001775 

012760 

005060 

013760 

005760 

001775 

012760 

005060 

113760 

005760 

001775 


113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 

005737 

001402 

000137 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 




.SET 

ATTENTION BITS FOR BOTH PO 

001224 

000010 


MOVB 

PORTA, RMCS2(R0) 

000012 


66$: 

TST 

RMDS(RO) 




BEQ 

66$ 

177777 

000014 


MOV 

#-1,RMER1 CRO) 

000014 



CLR 

RMER1 (RO) 

001226 

000010 


MOV 

PORTS. RMCS2(R0) 

000012 


64$: 

TST 

RMDS(RO) 




BEQ 

64$ 

177777 

000014 


MOV 

#-1 .RMER1 (RO) 

000014 



CLR 

RMER1 (RO) 

001224 

000010 


MOVB 

PORTA, RMCS2(R0) 

000012 


65$: 

TST 

RMDS(RO) 




BEQ 

65$ 


SELECT PORT 64$ 
MAKE SURE DRIVE 


AVAILABLE 


FORCE ERRORS 
CLEAR THE ERRORS 
SELECT THE OTHER PORT 
WAIT FOR DRIVE TO TIMEOUT 
BR IF DRIVE HASN’T TIMED OUT 
FORCE ERRORS ON PORT 65$ 
CLEAR THE ERRORS 
SELECT PORT "64 ft" AGAIN 
WAIT FOR DRIVE TO TIMEOUT 
BR IF DRIVE HASN'T TIMED OUT 


.•CONFIRM THAT BOTH ATTENTION BITS ARE SET 


001224 

001224 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

036034 

U01226 

001226 

001250 

000012 

000012 

00H22 

100000 

001126 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


67$: 


000010 

001240 

001126 

001122 

001124 

001164 


Move 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

TST 

BEQ 

JMP 

MGV8 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 


PORTA. RMCS2CR0) .-SELECT PORT A 

PORTA, PTNBR ;M0VE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(RO) ,$8DDAT .GET CONTENTS OF RMDS 
#RMDS,$6DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 

;ADD RH/RM BASE ADDRESS 

;WHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO 
.-SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
.•COPY 'BAD DATA* 

.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 


R0,$8DADR 
#ATA,$GDDAT 
SBDDAT.STMPO 
#*CATA,$TMPO 
$GDDAT,$TMPO 
67$ 

$8DDAT,$THP4 

#ATA.$THP4 

$TMP4,$GDDAT 

10 

CKERR 


’$TMP0‘ 


; SE T THE REGISTER COMPARE ERROR INDICATOR 


CKERR ;WAS ATTN BI< FOR PORT A SET ? 

.♦6 ;BR IF IT WAS 

1$ .-BYPASS REST OF TEST IF NOT 

PGRT6,R«CS2(R0> ; SELECT PORT B 

PORTS, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$BDDAT .GET CONTENTS OF RMDS 
#RMDS,$80ADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0,$8DADR ;ADD RH/RM BASE ADDRESS 

#ATA,$GDDAT ;WHAT REGISTER SHOULD BE _ 
$BDDAT,$TMPO .‘MOVE REGISTER CONTENTS TO '$TMP0' 


l - 


J 



SEQ 01C4 


N 
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034722 

034730 

034736 

034740 

034746 

034754 

034762 

034764 

034770 

034772 

034776 

035000 


035004 

035012 

035020 

035024 

035032 

035040 

035046 

035054 

035060 

035066 

035072 

035100 

035102 

035104 

035110 

035110 

035116 

035124 

035132 

035140 

035146 

035154 

035160 

035166 

035174 

035202 

035204 

035206 


042737 077777 001164 
023737 001124 001164 

001414 

013737 001126 001174 
042737 100000 001174 
053737 001174 001124 
104010 

005137 001250 
000240 

005737 001250 
001402 

000137 036034 


113760 

013737 

005060 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 

113760 

013737 

016037 

042737 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104005 

000240 


001224 

001224 

000012 

001226 

001226 

001226 

000012 

001122 

000012 

001124 

001124 


036034 

001224 

001224 

000012 

020001 

011700 

001124 

001166 

001126 

001166 

001124 


035216 005Q37 
C35222 016037 
035230 012737 
055236 060037 
035242 005037 
035246 013737 
035254 042737 


001250 

000012 

000012 

001122 

001124 

m 


BIC 

#*CATA, STMPO 

CMP 

SGDDAT, STMPO 

BEQ 

69$ 

MOV 

SBDDAT, STHP4 

BIC 

#ATA f STMP4 

BIS 

STMP4, SGDDAT 

EMT 

10 

COM 

CKERR 

NO P 


TST 

CKERR 

BEQ 

.♦6 

JMP 

IS 


.SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;BR IF OK 
.’COPY 'BAD DATA' 

.-CLEAR THE MASKED BITS 
; *0R' WITH GOOD VTA FOR TYPEOUT 

.SET THE REGISTER COMPARE ERROR INDICATOR 


;WAS ATTN BIT FOR PORT B SET ? 
;8R IF IT HAS 

.•BYPASS REST OF TEST IF NOT 


.SEIZE THE DRIVE THROUGH PORT A 


000010 

001242 

000010 

001240 

001244 

001126 

001122 

001126 


000010 

001240 

001126 

001126 

001124 

001166 

001164 

001164 

001164 


PORTA. RMCS2(R0) .-SELECT PORT A 
PORTA. SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .WRITE RMDS 

P0RTB.RMCS2CR0) ;SELECT PORT B 

PORTS, PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTB.OPPRT 
RMDS(RO) .SBDDAT 
R0,$6DADR 
fRMDS.SBDADR 
SGDDAT 

SGDDAT, SBDDAT 
71$ 

4 

IS 


•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED SY PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 

BYPASS REST OF THE SUBTEST 


Move 

MOV 

MOV 

BIC 

MOV 

MOV 

COM 

MOV 

BIC 

CMP 

BEQ 

EMT 

NOP 


PORTA, RMCS2(R0) .‘SELECT PORT A 

PORTA, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS CRO), SBDDAT .‘SEE IF SEIZING PORT SEES CORRECT STATUS 
#0M! PIP, SBDDAT .-CLEAR DONT CARE BITS 

RMOL ! PGM ! DPR ! DRY ! VV, SGDDAT .-EXPECTED STATUS 
SGDDAT, STMP1 ;USE GOOD DATA AS A MASK 


STMP1 

SBDDAT.STMPO 
STMP1 , STMPO 
SGDDAT, STMPO 
72 S 
5 


COMPLEMENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET ? 

BR IF THEY ARE 


035210 012760 000011 000000 


001126 

001122 


001164 

001164 


.-ISSUE DRIVE CLEAR COMMAND TO PORT A 

MOV fll.RMCSKRO) ;DG A DRIVE CLEAR COMMAND 

.-VERIFY THAT ATTENTION BIT FOR PORT A CLEARED 

CLR CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

MOV RMDS (RO), SBDDAT ;GET CONTENTS OF RMDS 

MOV #RMDS,Sb6aDR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 


irnnvwifwvnvn 

R0.S8DADR 

SGDDAT 

SBDDAT, STMPO 
#*CATA, STMPO 


.-ADD RH/RM BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO 
.-SAVE SPECIFIED BITS 


'STMPO' 


SEQ 0105 


CZRNHAQ 

T26 


8 
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035262 

035270 

035272 

035300 

035306 

035314 

035316 

035322 


023737 

001414 

013737 

042737 

053737 

104047 

005137 

000240 


001124 

001164 

CMP 

BEO 

MOV 

001126 

001174 

100000 

001174 

BIC 

001174 

001124 

BIS 

EMT 

001250 


COM 

73$: 

NOP 


$6DDAT,$TMP0 

73S 

$8DDAT.$TMP4 

#ATA f $TMP4 

$TMP4.$GDDAT 

47 

CKERR 


.RELEASE THE DRIVE FRO* PORT A 


.•COMPARE THE BITS 
;SR IF OK 
.COPY ’BAD DATA' 

.•CLEAR THE MASKED BITS 

.-•OR’ WITH GOOD DATA fOR TYPEOUT 

.SET THE REGISTER COMPARE ERROR INDICATOR 


035324 113760 001224 000010 

035332 013737 001224 001240 
035340 012760 000013 000000 


035346 

035352 

035360 

035364 

035372 

035400 

035406 

035414 

035422 

035430 

035436 

035444 

035452 

035460 

035466 

035474 

035476 

035502 

035504 

035506 

035512 

035520 

035526 

035534 

035540 

035542 

035550 

035556 

035564 

035570 

035572 

035600 

035606 

035614 

035616 

035624 

035632 

035640 

035646 

035650 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113780 

005737 

001012 

012737 

012760 

012760 

m 

013737 

042737 

023737 

001401 

104007 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


035706 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000C13 

001170 

001224 

100000 

001124 


MOVB PORTA.RMCS2(R0> ;SELECT PORT A 

MOV PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RKCS1(R0) .ISSUE RELEASE THROUGH PORT A 

.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


75S: 


76$: 

77$: 


CLR 

MOV 

ADD 

MOV 

MOVB 

MOV 

BIC 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOV 8 

TST 

BEQ 

MOV 

MOV 

MOVB 

TST 

BNE 

MOV 

MOV 

MOV 

EMT 

MOV 

MOV 

BIC 

CMP 

BEQ 

EMT 


RELERR .-CLEAR THE ‘RELEASE ERROR ' INDICATOR 

fRMDS.SBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 

R0,$8tADR ;ADD THE I/O BASE ADDRESS 

#MOL ! PGM ! DPR ! DR Y ! VV , SGDDAT .-COMPARISON CONSTANT 
PORTA,RMCS2(R0> .-SELECT PORT A. 

RMDS(RO) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#P! o !WRL!0N,$TMP2 .CLEAR DONT CARES 

$TMP2,$TMP0 .‘COPY IT INTO 'STMPO' 

#ATA! VV,$TMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS. RMCS2CR0) .SELECT PORT B. 

RMDS(RO) ,$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL!0M,$TMP3 ; CLEAR DONT CARES 


$TMP3,$TMP1 
#ATA!VV,$TMP1 
$TMP0.$TMP1 
75$ 

$TMPO 

77$ 

46 

79$ 

$TMP2.$8DDAT 

PORTS. PTNBR 

°0RT8,RMCS2(R0) 

STMPO 

76$ 

PORTA, PTNBR 
$TMP3.$8DDAT 
PORTA, RMCS2(R0) 
$TMP1 

77$ 

#-1 .RELERR 
#;i.RMCS1(R0) 
#13,RMCS1 CRO) 
26 

$TMP?,$8DDAT 
POT. i A. PTNBR 
#ATA,$BDDAT 
$GDDAT,$BDDAT 
78$ 

7 


COPY IT INTO '$TMP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 

SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

cci err pflOT R 

SEE IF STATUS* EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
‘BAD DATA’ FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 



V 


SEO 0106 
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STNP3, SBDDAT 
PORTB.PTNBR 
#ATA. SBDDAT 
SGDDAT. SBDDAT 
79$ 

7 


035702 001401 
035704 104007 

035706 000240 


001172 

001126 

78S: 

NOV 

001226 

001240 


NOV 

100000 

001126 


BIC 

001124 

001126 


CNP 



BEQ 




ENT 



79S: 

NOP 


CHECK RNDS FOR BIT FAILURES 
CHANGE PORT NUNBER 
DON'T CHECK TI.E ATTN BIT 
SEE IF READ OK FROM PORT 8. 
BR IF OK 


FROM PORT 8. 


954 

972 

973 


035710 

035716 

035724 

035730 

035736 

035744 

035750 

035756 

035764 

035772 

036000 

036002 

036010 

036016 

036024 

036026 

036032 

036034 


113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104050 

005137 

000240 

000004 


001226 

001226 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


.-CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT B> 


80S: 

1 $: 


H0V8 

NOV 

CLR 

NOV 

NOV 

ADD 

NOV 

NOV 

BIC 

CNP 

BE© 

NOV 

BIC 

BIS 

ENT 

CON 

NOP 

SCOPE 


PORIB.RNCS2(R0) ;SELECT PORT B 

P0RT8.PTN8R .-HOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RNDS(RO) .SBDDAT ;GET CONTENTS OF RNDS 
#RNDS.SBDADR ;FORN REGISTER ADDRESS OF ERROR NESSA^E 

;ADD RH/RN BASE ADDRESS 

.-WHAT REGISTER SHOULD BE 

;NOVE REGISTER CONTENTS TO 'STNPO' 

.-SAVE SPECIFIED BITS 
,-CONPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 

.-CLEAR THE NASKED BITS 
; 'OR' WITH GOOD DATA OR TYPEOUT 


R0.S8DADR 
#ATA. SGDDAT 
SBDDAT. STNPO 
#*CATA, STNPO 
SGDDAT. STNPO 
80S 

SBDDAT, STNP4 
#ATA,STNP4 
STNP4, SGDDAT 
50 

CKERR 


.-SET THE REGISTER CONPARE ERROR INDICATOR 
.-LOOP ? 


036036 , v 

036036 005737 001300 
036042 001406 
036044 100002 
036046 000137 003062 
036052 012737 177777 001300 
036060 012737 036074 001106 
036066 012737 036074 001110 
036074 


*************************************************** ************ 

TEST 27 TEST RESET ATTENTION 'B' BY DRIVE CLEAR 

VERIFY THAT A DRIVE CLEAR CONNAND CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 

A. SET EACH PORT'S ATTENTION BIT. VERIFY THAT BOTH ATTENTION BITS 
SET. 

B. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RNDS. 

C. ISSUE A DRIVE CLEAR CONNAND. 

D. RELEASE THE DRIVE THROUGH PORT '8*. VERIFY THAT THE ATTENTION 
BIT FOR PORT 'B' HAS BEEN CLEARED AND THE ATTENTION BIT FOR PORT 
•A’ IS STILL SET. 

* 

•**t*»tO*H*mHtHtttHOHmO**t**tt***tt*H*H*tttt*ttt»* 

TS ‘ PERFORNING ONLY SINGLE TEST ? 

BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN t GET NEXT TEST NUNBER 
IS: NOV #-i.KYBCTL ; SET SINGLE TEST INDICATOR 

2$: NOV #TEST27, SLPADR .-SETUP SCOPE LOOP ADDRESS 

NOV #TEST27,SLPERR .-SETUP ERROR LOOP ADDRESS 

TEST27: 


TST 

KY8CTL 

BEQ 

2$ 

BPL 

IS 

JNP 

EXEC 

NOV 

#-1 .KYBCTL 

NOV 

#TEST27,$LPADR 

NOV 

#TEST27,SLPERR 


l 


\ — 



SEQ 0107 
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D 9 


974 

975 


036074 

036102 

036106 


036114 

036122 

036126 

036130 

036136 

036142 

036150 

036154 

036156 

036164 

036170 

036176 

036202 


036204 

036212 

036220 

036224 

036232 

036240 

036244 

036252 

036260 

036266 

036274 

036276 

036304 

036312 

037320 

036322 

036326 

036330 

036334 

036336 

036342 

036350 

036356 

036362 

036370 

036376 

036402 

036410 

036416 

036424 

036432 

036434 

036442 

036450 


1 2737 
012706 
012737 


113760 

005760 

001775 

012760 

005060 

013760 

005760 

001775 

012760 

005060 

113760 

U05760 

001775 


113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 

005737 

001402 

000137 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 


000027 

001100 

000012 


001102 

001176 


NOVB 

NOV 

NOV 


#27,$TSTNH 
#STACK.SP 
#10. .STINES 


NOVE #27 TO TEST NUNBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 


;SET ATTENTION BITS FOR BOTH PORTS 


001224 

000010 


NOVB 

000012 


66$: 

TST 




BEQ 

177777 

000014 


NOV 

000C14 



CLR 

001226 

000010 


NOV 

000012 


64$: 

TST 




BEQ 

177777 

000014 


NOV 

000014 



CLR 

001224 

000010 


NOVB 

000012 


65$: 

TST 




BEQ 


P0RTA,RHCS2(R0) 

RNDS(RO) 

66$ 

#-1 .RNER1 (RO) 
RNERKRO) 

PORTS. RNCS2(R0) 
RNDS(RO) 

64$ 

#-1 .RNER1 (RO) 
RNER1 (RO) 

PORTA, RNCS2(R0) 
RNDS(RO) 

65$ 


SELECT PORT 64$ 
HAKE SURE DRIVE 


AVAILABLE 


FORCE ERRORS 
CLEAR THE ERRORS 
SELECT THE OTHER PORT 
WAIT FOR DRIVE TO TINE OUT 
BR IF DRIVE HASN'T TINED OJT 
FORCE ERRORS ON PORT 65$ 
CLlAR THE ERRORS 
SELECT PORT 'W AGAIN 
WAIT FOR DRIVE TO TINEOUT 
BR IF DRIVE HASN'T TINED OUT 


;CONFIRN THAT BOTH ATTENTION BITS ARE SET 


001226 

001226 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

037530 

001224 

001224 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


67$: 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


NOVB 

NOV 

CLR 

NOV 

NOV 

ADD 

NOV 

NOV 

BIC 

CNP 

BEO 

NOV 

BIC 

BIS 

ENT 

CON 

NOP 

TST 

BEO 

JNP 

NOVB 

NOV 

CLR 

NOV 

NOV 

ADD 

NOV 

NOV 

BIC 

CNP 

BEO 

NOV 

BIC 

BIS 


PORTS, RNCS2(R0) .‘SELECT PORT B 

PORTS, PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RNDS(RO) ,$6DDAT .-GET CONTENTS OF RHDS 
#RN0S,$6DADR ;FORN REGISTER ADDRESS OF ERROR NESSAGE 
.ADD RH/RH BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 
,-HOVE REGISTER CONTENTS TO 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8k IF OK 
.-COPY 'BAD DATA' 

.-CLEAR THE MASKED BITS 
.-'OR' WITH GOOD DATA FOR TYPEOUT 


R0.S8DADR 
#ATA,$GDDAT 
$8DDAT,$TNP0 
#*CATA, STHPO 
$GDDAT.$TNPO 
67$ 

$8DDAT,$TNP4 
#ATA f $TNP4 
STMP4, SGDDAT 
10 

CKERR 


•$TNPO' 


,-SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .WAS ATTN BIT FOR PORT B SET ? 

.♦6 ;BR IF IT WAS 

1$ .-BYPASS REST OF TEST IF NOT 

PORTA, RNCS2(R0) ;SELECT PORT A 

PORTA, PTNBR ;MOVfc °ORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RNDS(RO) ,$6DDAT ;6ET CONTENTS OF RMDS 
#RMDS,S8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RH BASE ADDRESS 
.-WHAT RE6ISTER SHOULD BE 

;HOVE REGISTER CONTENTS TO 'STHPO* 

.-SAVE SPECIFIED SITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 

.-CLEAR THE MASKED BITS 
.-'OR* WITH GOOD DATA FOR TYPEOUT 


RO.SBDADR 
#ATA,$GDDAT 
S6DDAT, STHPO 
#*CATA, STHPO 
SGDDAT, STHPO 
69$ 

SBDDAT.STHP4 
#ATA,$TNP4 
STMP4. SGDDAT 



3EG 0108 


E 9 
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036456 104010 
036460 005137 001250 
036464 000240 
036466 005737 001250 
036472 001402 
036474 000137 037530 


036500 

036506 

036514 

036520 

036526 

036534 

036542 

036550 

036554 

036562 

036566 

036574 

036576 

036600 

036604 

036604 

036612 

036620 

036626 

036634 

036642 

036650 

036654 

036662 

036670 

036676 

036700 

036702 


113’60 

013737 

005060 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 

113760 
013737 
016037 
042737 
012737 
013737 
005137 
013737 
043737 
023737 
001 40 " 
104005 
000240 


036712 

036716 

036724 

036732 

036736 

036742 

036750 

036756 

036764 

036766 

036774 

037002 

037010 


005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104047 


69$: 


EMT 

1C 

COM 

CKERR 

NOP 


1ST 

CKERR 

BEO 

.♦6 

JMP 

IS 


; SE T THE REGISTER COMPARE ERROR INDICATOR 

;WAS ATTN BIT FOR PORT A SET ? 

• no rr it UAd 

•BYPASS REST OF TEST IF NOT 


.•SEIZE THE DRIVE THROUGH PORT B 


001226 

001226 

000012 

001224 

001224 

001224 

000012 

001122 

000012 

001124 

001124 


037530 

001226 

001226 

000012 

020001 

0117uC 

001124 

001166 

001126 

001166 

001124 


000010 


H0V8 

001242 


MOV 

CLR 

000010 


NOVB 

001240 


MOV 

001244 


MOV 

001126 


MOV 

MOV 

001122 


ADD 

CLR 

001126 

71$: 

CMP 

BEQ 

EMT 

JMP 

000010 


M0V8 

001240 


MOV 

001126 


MOV 

001126 


BIC 

001124 


MOV 

001166 


MOV 

COM 

001164 


MOV 

001164 


BIC 

001164 


CMP 

BEO 

EMT 


72 S: 

NOP 


PORTB,RHCS2(R0) .-SELECT PORT B 
PORTB.SEIZPT ; STORE SEIZING PORT'S ADDRESS 
RMDS(RO) .WRITE RMDS 

PORTA, RHCS2IR0) .'SELECT PORT A 

PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTA, OPPRT .'OPPOSITE' PORT ADDRESS 

RMDS(RO) ,$8DDAT ;SEE if DRIVE SEIZED BY PORT B 
,-RH/RM BASE ADDRESS 
; GENERATE BAD REGISTER ADDRESS 
.•REGISTER SHOULD BE ZERO 
;IS T.iC REGISTER ZERO 
;BR IF IT IS 


R0.S6DADR 
fRMDS.ABDADR 
SGDDAT 

SGDDAT.SBDDAT 

71$ 

4 

1 $ 


.•BYPASS REST OF THE SUBTEST 


PORTS ,RMCS2(R0) :SELECT PORT B 

PORTB. PTNBR .'WOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) .SBDDAT ;SEfc IF SEIZING PORT SEES CORRECT STATUS 
#CM! PIP. SBDDAT .-CLEAR DONT CARE BITS 

/FMOL ! PGM ! DPR! DR Y.'VV, SGDDAT .‘EXPECTED STATUS 
SGDDAT. STMP1 ;USE GOOD DATA AS A MASK 

: COMPLEMENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 
CLEAR UNWANTED BITS 
ARE THE EXPECTED STATUS BITS SET ? 

BR IF THEY ARE 


$TMP1 
S8DDAT.STMP0 
STM PI .STMPO 
SGDDAT. STHPO 
72$ 

5 


.‘ISSUE DRIVE CLEAR COMMAND TO PORT B 


000011 

000000 

MOV 



.•VERIFY THAT 

001250 


CLR 

000012 

001126 

MOV 

000012 

001122 

MOV 

001122 


ADD 

001124 


CLR 

001126 

001164 

MOV 

077777 

001164 

BIC 

001124 

001164 

CMP 



BEO 

001126 

001174 

MOV 

100000 

001174 

BIC 

001174 

001124 

BIS 



EMT 


fll.RMCSI (RO) ;D0 A DRIVE CLEAR COMMAND 


CKERR .-CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(R0),$6DDAT ;GET CONTENTS OF RMDS 
fRMDS.SBDAOR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;UHAT REGISTER SHOULD BE 
.MOVE REGISTER CONTENTS TO 'STMPO' 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 

.-CLEAR THE MASKED BITS 
; 'OR' WITH GOOD DATA FOR TYPEOUT 


irnraftf # vwvr 

R0.S8DADR 
SGDDAT 
SBDDAT. STMPO 
#*CATA. STMPO 
S|DDAT, STMPO 

S6DDAT.STMP4 
#ATA.$TMP4 
STMP4. SGDDAT 
47 



SEQ O' jy 
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0370T2 005137 001250 
037016 000240 


CKERR 


.RELEASE THE DRIVE FROM PORT B 


;SET THE REGISTER COMPARE ERROR INDICATOR 


037020 113760 
037026 013737 
037034 012760 


037042 

037046 

037054 

037060 

037066 

037074 

037102 

037110 

037116 

037124 

037132 

037140 

037146 

037154 

037162 

037170 

037172 

037176 

037200 

037202 

037206 

037214 

037222 

037230 

037234 

037236 

037244 

037252 

037260 

037264 

037266 

037274 

037302 

037310 

037312 

037320 

m 

037346 

037354 

037362 

037370 

037376 

037400 


005037 
012737 
060037 
012737 
113760 
016037 
042737 
013737 
042737 
113760 
016037 
042737 
013737 
042737 
023737 
00(006 
005737 
001045 
104046 
00013? 
013737 
013737 
113760 
005737 
001414 
013737 
013737 
113760 
005737 
001012 
012737 
01 2760 
012760 
104026 
013737 
013737 
042737 
023737 
001401 
104007 
013737 
013737 
042737 
023737 
001401 
104007 


001226 

001226 

000013 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


037402 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


000010 

001240 

000000 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


PORTS, RMCS2(R0> :SELECT PORT B 

PORTB.PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
(F13.RMCSKR0) .-ISSUE RELEASE THROUGH PORT B 


.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR 

MOV 

ADD 

MOV 

NOVB 

MOV 

BIC 

MOV 

BIC 

NOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

NOVB 

TST 

BEQ 

MOV 

MOV 

NOVB 

TST 

BNE 

MOV 

NOV 

MOV 

EMT 

MOV 

NOV 

BIC 

CMP 

BEQ 

EMT 

MOV 

MOV 

BIC 

CMP 

BEO 

EMT 


RElERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMUS.$BDADR .‘FORM THE ADDRESS CF RMDS FOR TYPEOUT 
R0.S6DADR .ADD THE I/O BASE ADDRESS 

#MOL ! PGM ! DPR ! DRY J VV. I6DDAT .-COMPARISON CONSTANT 
PORTA, RMCS2(R0) .-SELECT PORT A. 

RNDS(RO) .STMP2 ;6ET THE DRIVE STA1US REGISTER FROM PORT A. 
*PIP!VRL!0M.$TMP2 .-CLEAR DONT CARES 

$TMP2, STMPO .-COPY IT INTO 'STMPO' 

#ATAiW, STMPO .’CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTS, RMCS2CR0) .-SELECT PORT 0. 

RMDS(RO) -STMP3 ;6ET THE DRIVE STATUS REGISTER FROM PORT B. 
fPIP! URL J0M.STMP3 .’CLEAR DONT CARES 


STMP3.STMP1 
#ATA! VV.STMP1 
STMPO. STMP1 
75S 
STMPO 
77 S 
*6 
79S 

STMP2.S6DDAT 

PORTB.PTNBR 

PORT8.RMCS2(RO> 

STMPO 

76S 

PORTA, PTNBR 
STMP3.S800AT 
PORTA. RMCS2CR0) 
STMP1 

77S 

#-1 .RELERR 
#11,RMCS1(R0J 
#13.RMCS1 (RO) 

26 

STMP2.SBDDAT 

PORTA, PTNBR 

fATA.SBOOAT 

SGDDAT.S6DDAT 

78S 

7 

STMP3.S80DAT 

PORTB.PTNBR 

(FATA.SBDDAT 

SGDDAT.SBDDAT 

79S 

7 


COPY IT INTO 'STMP1 * 

CLEAR PORT DEPENDENT BIT* FROM THE COPY 

IS THE STATUS REGISTER IriE SAME FROM BOTH PORTS ? 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOUS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOUS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 



V 


SEO 0110 
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037402 000240 


976 

995 

996 


037404 

037A12 

037420 

037424 

037432 

037440 

037444 

037452 

037460 

037466 

037474 

037476 

037504 

037512 

037520 

037522 

037526 

037530 


997 

1030 


113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104050 

005137 

000240 

000004 


037532 

037532 

037536 

037540 

037542 

037546 

037554 

037562 

037570 

037570 

037576 

037602 


79$: 


NOP 


001224 

000010 


MOVB 

0U1224 

001240 


NOV 

001250 



CLR 

000012 

001126 


MOV 

000012 

001122 


MOV 

001122 



ADD 

100000 

001124 


MOV 

001126 

001164 


MOV 

077777 

001164 


BIC 

001124 

001164 


CMP 




BEO 

001126 

001174 


MOV 

100000 

001174 


BIC 

001174 

001124 


BIS 




EMT 

001250 



COM 



80$: 

NOP 



1$: 

SCOPE 


; CHECK ATTENTION BIT ON THE OPPOSITE PORT (PORT A) 

P0RTA.RMCS2(R0> ;SELECT PORT A 

PORTA, PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CLEAN THE 'CHECK ERROR' INDICATOR 

RMDS(RO> .SBDDAT ;6ET CONTENTS OF RNDS 
#RMDS,SBDADR ;FORN REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/AM BASE ADDRESS 
;HHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO '$TMPO' 

.-SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 

.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DmTA FOR TYPEOUT 


R0.S8DADR 
fATA.SGDDAT 
$BDDAT,$TMPO 
# A CATA,$TMP0 
$GDDAT,$TMPO 
80$ 

$8DDAT,$TMP4 

#ATA,$TNP4 

$TMP4,$GDDAT 

50 

CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 
;LOOP ? 


^*********************************************************•7*** t 

TEST 30 RESET ATTENTION 'A* BY GO TEST 

VERIFY THAT THE 'GO BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 

A. SET EACH PORT'S ATTENTION BIT, AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 

B. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S 
INTO RMDS. 

C. ISSUE A NOP COMMAND. 

D. RELEASE THE FRIVE THROUGH PORT 'A'. VERIFY THAT THE 
ATTENTION BIT FOR PORT 'A' IS RESET. AND THE 
ATTENTION BIT FOR PORT 'B' IS STIL SET. 


005737 001300 
001406 
100002 

000137 003062 
012737 177777 001300 1$: 
012737 037570 001106 2$: 
012737 037570 001110 


TST30: 


112737 000030 001102 
012706 001100 
012737 000012 001176 


TEST30: 


TST KY8CTL 

BED 2$ 

BPL 1$ 

JMP EXEC 

MOV f-1 .KYBCTL 

MOV #TEST30.$LPADR 

MOV #TEST30.$LPERR 

MOVB #30,$TSTNN 

MOV f STACK, SP 

MOV #10. .STINES 


; PERFORMING ONLY SINGLE TEST ? 
*BR IF NOT 

;BR IF JUST ENTERED TEST 
•RETURN t GET NEXT TEST NlflBER 
;SET SINGLE TEST INDICATOR 
.SETUP SCOPE LOOP ADDRESS 
.SETUP ERROR LOOP ADDRESS 

.-MOVE #30 TO TEST NUMBER 
.-LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


NHAO RN8Q DUAL PORT P) 1 NACRO V04.00 15-JAN-82 07:09 :2d PAGE 9-?*. 
IjO RESET ATTENTION 'A' BY GO TEST 


SEQ 0111 


;SET ATTENTION BITS FOR BOTH PORTS 


037610 

037616 

037622 

037624 

037632 

037636 

037644 

037650 

037652 

037660 

C37o64 

037672 

037676 


037700 

037706 

037714 

037720 

037726 

037734 

037740 

037746 

03775<* 

037762 

037770 

037772 

040000 

040006 

040014 

040016 

04002? 

040024 

040030 

040032 

040036 

040044 

040052 

040056 

040064 

040072 

040076 

040104 

04011? 

040120 

04012$ 

040130 

040136 

040144 

040152 

040154 

040160 

040162 

040166 


113760 
005760 
001775 
012760 
005060 
013760 
005760 
001775 
012760 
005060 
113760 
005760 
001 775 


113760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 
005737 
001402 
0001 37 
113760 
013737 
005037 
016037 
012737 
060037 

m 

042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
00024 Q 
005737 
001402 


001224 

000012 

177777 

000014 

001226 

000012 

177777 

0000(4 

001224 

000012 


001224 

001224 

001250 

000012 

0000T2 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

041224 

001226 

001226 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 


000010 


000014 

000010 

000014 

000010 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


HQV8 PORTA. R»CS2<R0) 

TST RNDS(RO) 

BEQ 66S 

NOV #-1 .RNER1 (RO) 

CLR RNERKRO) 

NOV PORT8.RNCS2(RO) 

rST RNDS(RO) 

BEQ 64$ 

NOV #-1, RNERKRO) 

CLR RNER1 (RO) 

N0V8 PORTA, RNCS2(R0) 

TST RNDS(RO) 

BEQ 65$ 


SELECT PORT 64$ 

NAKE SURF DRIVE AVAILABLE 

FORCE ERRORS 
CLEAR THE ERRORS 
SELECT THE OTHER PORT 
WAIT FOR DRIVE TO TINEOUT 
BR IF DRIVE HASN’T TINED OUT 
FORCE ERRORS ON PORT 65$ 
CLEAR THE ERRORS 
SELECT PORT ‘*4$ M AGAIN 
WAIT FOR DRIVE TO TINEOUT 
BR IF DRIVE HASN'T TINED OUT 


.-CONFIRN THAT BOTH ATTENTION BITS ARE SET 


N0V8 

NOV 

CLR 

NOV 

NOV 

ADD 

NOV 

NOV 

BIC 

CNP 

BEQ 

NOV 

BIC 

BIS 

ENT 

CON 

NOP 

TST 

BEQ 

JNP 

N0V8 

NOV 

CLR 

NOV 

NOV 

ADD 

NOV 

NOV 

BIC 

CNP 

BEO 

NOV 

BIC 

BIS 

ENT 

CON 

NOP 

TST 

BEQ 


PORTA, RNCS2(R0) ;SELECT PORT A 

PORTA, PTNBR ;NOVf PORT ADDRESS TO LOCATION FOR TYPEOUl 

CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RNDS(RO) .SBDDAT ;GET CONTENTS OF RNDS 

#RNDS,$BDADR ;F ORN REGISTER ADDRESS OF ERROR HESSAGE 

RO.SBDADR ;ADD RH/RN BASE ADDRESS 

«ATA,$GDDAT ;WHAT REGISTER SHOULD BE 

$8DDAT,$TNP0 ;NOVE REGISTER CONTENTS TO 'STHPO' 

(TCATA, STHPO ;SAVE SPECIFIED BITS 

$GDDAT,$TNPO .CONPARE THE 81 TS 

67$ 'BR IF OK 

SBDDAT ,$THP4 ;COPY 'BAD DATA' 

#ATA.$fNP4 .CLEAR THE NASKED BITS 

$TNP4,$GDDAT ;'0R 5 WITH GOOD DATA FOR TYPEOUT 

10 

CKERR 


;SET THE REGISTER CONPARE ERROR INDICATOR 


CKERR .'WAS ATTENTION SET FOR A?? 

.♦6 ; YES! ! 

1$ ;N0 - BYPASS REST OF TEST 

PORTS, RNCS2(R0> ; SELECT PORT B 

PORTB, PTNBR ;NOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

RNDS(RO) ,$8DDAT ;GET CONTENTS OF RNDS 

#RNDS,$8DADR ;FORN REGISTER ADDRESS OF ERROR HESSAGE 

RO.SBDADR ;ADD RH/RN BASE ADDRESS 

#AfA,$6D0AT ;WHAT REGISTER SHOULD BE 

$BDDAT,$TNPO ;NOVE RE6ISTER CONTENTS TO 'STHPO' 

(TCATA.STHPO ;SAVE SPECIFIED BITS 

SGDDAT, STHPO .'CONPARE THE BITS 

69$ ;BR IF OK 

$BDDAT,$THP4 ;COPY 'BAD DATA' 

#ATA f $fNP4 .'CLEAR THE NASKED BITS 

$TNp 4, SGDDAT ;'0R' WITH GOOD DATA FOR TYPEOUi 

10 

CKERR 


CKERR 

.♦6 


;SET THE REGISTER CONPARE ERROR INDICATOR 

;WAS ATTENTION SET FOR B?? 

;YES«! 


J 


9 


SEQ 0112 


URnh>0 RH80 dual port PH macro V04.C0 15- JAN-82 
T 30 RESEi ATTENTION ’A* BY 60 TEST 


040170 000137 041224 


040174 
040202 
040210 
040214 
04 0222 
040230 
040236 
040244 
040250 
040256 
040262 
040270 
040272 
040274 
040300 
040300 
040306 
040314 
040322 
040330 
040336 
040344 
040350 
040356 
040364 
040372 
040374 
040376 


113760 

013737 

005060 

113760 

013737 

013737 

016037 

010037 

062737 

005037 

023737 

0014*3 

104004 

000137 

113760 

013737 

016037 

042737 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104005 

000240 


001224 

001224 

000012 

001226 

001226 

001226 

000012 

001122 

000012 

001124 

001124 


041224 

001224 

001224 

000012 

020001 

011700 

001124 

001166 

001126 

001166 

001124 


040406 

040412 

040420 

040426 

040432 

040436 

040444 

040452 

040460 

040462 

040470 

040476 

040504 

040506 

0^0512 


005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 


)53737 
104061 
005137 
000240 


001250 

000012 

000012 

001122 

001124 

001126 

077777 

001124 

001126 

100000 

001174 

001250 


JMP 


.09:22 PAGE 9 


1 $ 




;N0 - BYPASS REST OF TEST 


.'SEIZE THE DRIVE THROUGH PORT A 


000010 


H0V8 

001242 


MOV 

CLR 

000010 


MOVB 

001240 


MOV 

001244 


MOV 

001126 


MOV 

NOV 

001122 


ADD 

CLR 

001126 

71 S : 

CMP 

8EQ 

EMT 

JMP 

000010 


NOVB 

001240 


MOV 

001126 


MOV 

001126 


BIC 

001124 


MOV 

001166 


MOV 

COM 

001164 


MOV 

001164 


BIC 

001164 


CMP 

BED 

EMT 


72 S: 

NOP 


PORTA. RNCS2(R0) .SELECT PORT A 
PORTA, SEIZPT .-STORE SEIZING PORT'S ADDRESS 
RNDSCRO) .'WRITE RNDS 

PORTB,RMCS2(R0> ; SELECT PORT B 

PORTS. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTB.OPFRT 
RNDSCROJ.SBDDAT 
R0.S8DADR 
♦RNDS.SBOADR 
SGDDAT 

SGDDAT, SBDDAT 

71$ 

4 

IS 


■OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT A 
RH/RM BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 

BYPASS REST OF THE SUBTEST 


PORTA, RNCS2CR0) ;SELECT PORT A 

PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) .SBDDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
#0M! PIP, SBDDAT .'CLEAR DONT CARE BITS 

#MOL ! PGR ! DPR! DRY !VV, SGDDAT .'EXPECTED STATUS 
SGDDAT. STMP1 ;USE GOOD DATA AS A MASK 


STNP1 
S8DDAT.STNP0 
STNP1. STNPO 
SGDDAT. STNPO 

7 ?% 

5 


COMPLEMENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET ? 

BR IF THEY ARE 


040400 012760 000001 000000 


.’ISSUE NOP COMMAND TO PORT A 
MOV #1 .RMCS1 (RO) 

.'VERIFY THAT ATTENTION FOR PORT A CLEARED 


001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


73$: 


CLR CXERR 

NOV RMDS(R0),S8DDAT 
MOV fRMDS.SBDADR 

ADD R0.S8DADR 

C» R S6DDAT 

MOV S8DDAT.STMP0 

BIC fCATA.STNPO 

CMP SGDDAT. STNPO 

BED 73S 

MOV S8DDAT.STNP4 

BIC #ATA.STNP4 

BIS STMP4. SGDDAT 

EM T 61 

COM CXERR 

NOP 


.'CLEAR THE 'CHECK ERROR* INDICATOR 
.GET CONTENTS OF RMDS 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
.ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.MOVE REGISTER CONTENTS TO 'STNPO' 

SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OX 
.-COPY ’BAD DATA' 

; CLEAR THE MASKED BITS 
; 'OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


.-RELEASE THE DRIVE FROM PORT A 


1.ZRNHA0 

TSO 


RH80 DUAL PORT PT1 MACRO V04.Q0 15-JAN-82 07:09:22 PAGE 9-76 
RESET ATTENTION 'A' BT GO TEST 


SEQ 0113 


040536 
040542 
040550 
040554 
040562 
040570 
040576 
040604 
040612 
040620 
040626 
0406 34 
040642 
040650 
040656 
040664 
040666 
040672 
040674 
C40676 
040702 
040710 
040716 
040724 
040730 
040732 
040740 
040746 
040754 
040760 
040762 
040770 
040776 
041004 
041006 
041014 
041022 
041030 
041036 
041040 
041042 
041050 
041056 
041064 
041072 
041074 
041076 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

8SlXoi 

104007 

000240 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


0*1076 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


000010 


NOVB 

001240 


MOV 

000000 


MOV 


.VERIFY 

THAT 

CLR 

001122 


MOV 

ADD 

001124 


MOV 

000010 


NOVB 

001170 


MOV 

001170 


BIC 

001164 


MOV 

001164 


BIC 

000010 


M0V8 

001172 


MOV 

001172 


BIC 

001166 


MOV 

001166 


BIC 

001166 


CMP 

BNE 

TST 

BNE 

EMT 

JMP 

001126 

75$: 

MOV 

001240 


MOV 

000010 


M0V8 

TST 

BEQ 

001240 


MOV 

001126 


MOV 

000010 


M0V8 

TST 

BNE 

001254 

76$: 

MOV 

000000 


MOV 

000000 


MOV 

EMT 

001126 

77$: 

MOV 

001240 


MOV 

001126 


BIC 

001126 


CMP 

BEQ 

EMT 

001126 

78$: 

MOV 

00)240 


MOV 

001126 


BIC 

001126 


CMP 

BEQ 

EMT 


79$: 

NOP 


PORTA. RMCS2(R0) ;SELECT PORT A 

PORTA. PTNBR .’MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
f 13.RNCS1 (RO) .ISSUE RELEASE THROUGH PORT A 


RELERR ; CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,$8DADR .’FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0.S8DADR ;ADD THE I/O BASE ADDRESS 

fMOL.'PGNJDPRJDRYIVV.SGDDAT .COMPARISON CONSTANT 
PORTA, RMCS2(R0) .’SELECT PORT A. 

RMDS(RO) .6TMP2 :6ET THE DRIVE STATUS REGISTER FROM PORT A. 

#PJP!WRL!0M,$TMP2 .-CLEAR DONT CARES 

*TMP2,$TMP0 .’COPY IT INTO 'STMPO' 

fATA! VV,$TMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTS, RMCS2(R0) .’SELECT PORT B. 

RMDS(R0).STMP3 :GET THE DRIVE STATUS REGISTER FROM I ORT B. 
fPIP!WRL!0*.$TMP3 .’CLEAR DONT CARES 


*TMP3.$TMP1 
fATA! VV,$TMP1 
STMPO, STMP1 
75$ 

STMPO 

77S 

46 

79$ 

STMP2.SBDDAT 
PORTS. PTNBR 
PORTS, RMCS2CR0) 
STMPO 
76S 

PORTA, PTNBR 

STMP3.S6DDAT 

PORTA, RMCS2CR0) 

STMP1 

77S 

f-1 .RELERR 
fll.RMCSKRO) 
f 13.RMCS1 (RO) 
26 

STMP2,S800AT 

PORTA.PTNBR 

fATA.SBDDAT 

|||DAT,SBDDAT 

7 B * 

STMP3.SBDDAT 

PORTB.PTNBR 

fATA.SSOOAT 

SGDDAT.SSDDAT 

79S 

7 


COPY IT INTO 'STMP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 


.•VERIFY THAT ATTENTION FOR PORT B IS STIL SET 
041100 113760 001226 000010 NOVB PORTS, RMCS2(R0) .SELECT PORT B 
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T30 RESET ATTENTION 'A' BY GO TEST 


K 9 


SEQ 01 U 


1031 

1050 

1051 


041106 

013737 

001226 

001240 


MOV 

041114 

005037 

001250 



CLR 

041120 

016037 

000012 

001126 


MOV 

041126 

012737 

000012 

001122 


MOV 

041134 

060037 

001122 



ADD 

041140 

012737 

100000 

001124 


MOV 

041146 

013737 

001126 

001164 


MOV 

041154 

042737 

077777 

001164 


BIC 

041162 

023737 

001124 

001164 


CMP 

041170 

001414 




BEQ 

041172 

013737 

001126 

001174 


MOV 

041200 

042737 

100000 

001174 


BIC 

041206 

053737 

001174 

001124 


BIS 

041214 

104062 




EMT 

041216 

005137 

001250 



COM 

041222 

000240 



80S: 

NOP 

041224 

000004 



1$: 

SCOPE 


041226 

041226 

041232 

041234 

041236 

041242 

041250 

041256 

041264 

41264 


» 


1272 


1052 

1053 


PORTB.PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RMDS(R0).$80DAT ;6ET CONTENTS OF RMDS 
#RMDS.S8DADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;UHAT REGISTER SHOULD BE 

.-MOVE RE6ISTER CONTENTS TO 'STPPO' 

.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY ’BAD DATA' 

.-CLEAR THE MASKED BITS 
.-’OR* WITH GOOD DATA FOR TYPEOUT 


R0.S80ADR 
#ATA,$GDDAT 
SBDDAT.STMPO 
#*CATA.$TMPO 
S6DDAT.STMP0 
80$ 

SBDDAT.STMP4 

#ATA.$TMP4 

$TMP4,$GDDAT 

62 

CKERR 


.-SET THE REGISTER COWARE ERROR INDICATOR 


TEST 31 


RESET ATTENTION 'B' BY GO TEST 


VERIFY THAT THE '60 BIT CLEARS ONLY THE ATTENTION BIT OF THE 
SEIZING PORT. 

A. SET EACH PORT'S ATTENTION BIT. AND VERIFY THAT BOTH 
ATTENTION BITS ARE SET. 

B. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S 
INTO RMDS. 

* C. ISSUE A NOP COMMAND. 

D. RELEASE THE FRIVE THROUGH PORT '8'. VERIFY THAT THE 
ATTENTION BIT FOR PORT 'B' IS RESET. AND THE 
ATTENTION BIT FOR PORT 'A' IS STIL SET. 


005737 001300 
001406 
100002 

000137 003062 
012737 177777 
012737 041264 
012737 041264 

112737 000031 
012706 001100 
041276 012737 000012 


041304 113760 001224 
041312 005760 000012 
041316 001775 


001300 

001106 

001110 

001102 

001176 


000010 


TST31 : 


If: 

2 $: 

TEST31 


TST KYBCTL 

BEQ 2$ 

BPL IS 

JMP EXEC 

MOV #-1 .KYBCTL 

MOV JTEST31 .SLPADR 

MOV #TEST31 .SLPERR 

MOVB #31 .STSTNM 

MOV #S TACK.SP 

MOV #10.. f TIMES 


PERFORMING ONLY SINGLE TEST ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN t GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE #31 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 


.-SET ATTENTION BITS FOR BOTH PORTS 
66 $: 


MOVB 

TST 

BEQ 


PORTA.RMCS2CRO) .SELECT PORT 64$ 
RMDS(RO) .-MAKE SURE DRIVE 
66 $ 


AVAILABLE 


SEP 01 J 5 


CZRNHAO 
T 31 
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RESET ATTENTION '8* BY GO TEST 


041320 

041326 

041332 

041340 

041344 

041346 

041354 

041360 

041366 

041372 


041374 

041402 

041410 

041414 

041422 

041430 

041434 

041442 

041450 

041456 

041464 

041466 

041474 

041502 

041510 

041512 

041516 

041520 

041524 

041526 

041532 

041540 

041546 

041552 

041560 

041566 

041572 

041600 

041606 

041614 

041622 

041624 

041632 

041640 

041646 

041650 

041654 

041656 

041662 

041664 


012760 177777 000014 
005060 000014 
013760 001226 000010 
005760 000012 
001775 

012760 177777 000014 
005060 000014 
113760 001224 000010 
005760 000012 
001775 


113760 
013737 
005037 
016037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 
005737 
001402 
000137 
113760 
013777 
005037 
0K037 
012737 
060037 
012737 
013737 
042737 
023737 
001414 
013737 
04* 

052 
104010 
005137 
000240 
005737 
0014 " 
0001 


001226 

001226 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

042720 

001224 

001224 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

042720 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


64$: 


65$: 


NOV 

#-1 .RMERKRO) 

CLR 

RMERKRO) 

MOV 

PORTS, RMCS2(R0) 

TST 

RMDS(RO) 

BEO 

64$ 

MOV 

#•1, RMERKRO) 

CLR 

RMERKRO) 

MOVB 

PORTA.RMCS2(RO) 

TST 

RMDS(RO) 

BEO 

65$ 


FORCE ERRORS 
CLEAR THE ERRORS 
SELECT THE OTHER PORT 
UAIT FOR DRIVE TO TIMEOUT 
BR IF DRIVE HASN'T TIMED OUT 
FORCE ERRORS ON PORT 65$ 
CLEAR THE ERRORS 
SELECT PORT ,, 64$ ,, AGAIN 
UAIT FOR DRIVE TO TIMEOUT 
BR IF DRIVE HASN'T TIMED OUT 


; CONFIRM THAT BOTH ATTENTION BITS ARE SET 


67$: 


69$: 


MOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEO 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

TST 

BEQ 

JMP 

Move 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

TST 

BEQ 

JMP 


PORTS, RMCS2(R0) .SELECT PORT B 

PORTB.PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$BDDAT .GET CONTENTS OF RMDS 
#RMDS,$BDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 

;ADD RH/RM BASE ADDRESS 

;WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO 'STMPO' 

;SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 

.-CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 


R0,$8DADR 
#ATA.$GDDAT 
$8DDAT.$TMP0 
# A CATA.$TMPO 
$GDDAT,$TMPO 
67$ 

$BDDAT,$TMP4 

#ATA,$TMP4 

$TMP4,$GDDAT 

10 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR ;UAS ATTENTION SET FOR B?? 

.♦6 ;YES!! 

1$ ;N0 - BYPASS REST OF TEST 

P0RTA,RMCS2(R0) .-SELECT PORT A 

P0RTA.PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(RO),$BDDAT ;GET CONTENTS OF RMDS 
#RMDS.$BDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 

.-ADD RH/RM BASE ADDRESS 

;WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO '$TMPO' 

.-SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA* 

; CLEAR THE MASKED BITS 
.-'OR* WITH GOOD DATA FOR TYPEOUT 


R0.S8DADR 
#ATA,$GDDAT 
$8DDAT,$TMP0 
#*CATA.$TMPO 
$GDDAT,$TMPO 
69$ 

$8DDAT,$TMP4 

#ATA,$THP4 

$TMP4,$GDDAT 

10 

CKERR 


CKERR 

.+6 

1 $ 


.-SET THE REGISTER COMPARE ERROR INDICATOR 

.-WAS ATTENTION SET FOR A?? 

-YES' 1 

•NO -* BYPASS REST OF TEST 


.-SEIZE THE DRIVE THROUGH PORT B 

041670 113760 001226 000010 MOVB PORTB.RMCS2(R0) .-SELECT PORT B 


SEO 0116 
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041676 

041704 

041710 

041716 

041724 

041732 

041740 

041744 

041752 

041756 

041764 

041766 

041770 

041774 

041774 

042002 

042010 

042016 

042024 

042032 

042040 

042044 

042052 

042060 

042066 

042070 

042072 


I 


013737 

005060 


113760 

013737 


013737 

016037 

010037 

062737 

005037 

023737 

001403 

104004 

000137 


001226 

000012 

001224 

001224 

001224 

000012 

001122 

000012 

001124 

001124 


001242 


000010 

001240 

001244 

001126 


001122 


001126 


042720 


113760 

013737 

016037 

042737 

012737 

013737 

005137 

013737 

043737 

023737 

001401 

104005 

000240 


001226 

001226 

000012 

020001 

011700 

001124 

001166 

001126 

001166 

001124 


000010 

0C1240 

001126 

001126 

001124 

001166 


001164 

001164 

001164 


042074 012760 000001 000000 


042102 

042106 

042114 

042122 

042126 

042132 

042140 

042146 

042154 

042156 

042164 

042172 

042200 

042202 

042206 


005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104061 

005137 

000240 


001250 

000012 

000012 

001122 

001124 

001126 

077777 

001124 


001126 

001122 


001164 

001164 

001164 


001126 

100000 

001174 


001174 

001174 

001124 


001250 


042210 

042216 

042224 


113760 

013737 

012760 


001226 000010 
001226 001240 
000013 000000 


PORTS. SEIZPT .STORE SEIZING PORT'S ADDRESS 
RHDS(RO) ;URITE RHDS 

PORTA, RHCS2CR0) ; SELECT PORT A 

PORTA, PTN8R .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


PORTA. OPPRT 
RHDS C RO ) , S8DDAT 
RO.SBDADR 
fRMDS.SBDADR 
SGDDAT 

SGDDAT. SBDDAT 
7 IS 
4 

1 $ 


•OPPOSITE' PORT ADDRESS 
SEE IF DRIVE SEIZED BY PORT B 
RH/RH BASE ADDRESS 
GENERATE BAD REGISTER ADDRESS 
REGISTER SHOULD BE ZERO 
IS THE REGISTER ZERO 
BR IF IT IS 


BYPASS REST OF THE SUBTEST 


PORTS. R«CS2(R0) .'SELECT PORT B 

PORTS. PTNBR .'HOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMDS(RO) .S8DDAT ;SEE IF SEIZING PORT SEES CORRECT STATUS 
fONfPIP.SBDDAT .'CLEAR DONT CARE BITS 

#HOL ! PGH ! DPR ! DRY ! VV .SGDDAT .'EXPECTED STATUS 
SGDDAT, STHP1 .‘USE GOOD DATA AS A MASK 


STHP1 

SBDDAT.STHPO 
STNP1 .JTHPO 
SGDDAT, STHPO 

72 S 
5 


COHPLEHENT THE EXPECTED STATUS 

SAVE THE ACTUAL STATUS 

CLEAR UNWANTED BITS 

ARE THE EXPECTED STATUS BITS SET ? 

BR IF THEY ARE 


.'ISSUE NOP COHNAND TO PORT B 
NOV #1 .RHCS1 (RO) 


.•VERIFY THAT ATTENTION FOR PORT B CLEARED 


CKERR 

RHDS(RO) .SBDDAT 
fRHDS.SBOADR ; 
RO.SBDADR 
SGDDAT 

SBDDAT.STHPO 
#*CATA. STHPO ; 
SGDDAT, STHPO 
73S 

SBDDAT -STHP4 
#ATA,STHP4 
STMP4, SGDDAT 
61 

CKERR 


; CLEAR THE 'CHECK ERROR' INDICATOR 
;GET CONTENTS OF RMDS 
FOM REGISTER ADDRESS OF ERROR HESSAGE 
;ADD RH/RH BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.-HOVE REGISTER CONTENTS TO 'ITHPO' 
SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;BR IF OK 
;COPY 'BAD DATA* 

.-CLEAR THE MASKED BITS 
; 'OR' WITH GOOD DATA FOR TYPEOUT 


;SET THE REGISTER COMPARE ERROR INDICATOR 


.'RELEASE THE DRIVE FROM PORT B 


HOVB 

MOV 

MOV 


PORTS. RHCS2(R0) ; SELECT PORT B 

PORTS. PTNBR ;M0V§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RHCS1(R0> .'ISSUE RELEASE THROUGH PORT B 


.'VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


SCO 0117 


M 9 
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042232 

042236 

042244 

042250 

042256 

042264 

042272 

042300 

042306 

042314 

042322 

042330 

042336 

042344 

042352 

042360 

042362 

042366 

042370 

042372 

042376 

042404 

042412 

042420 

042424 

042426 

042434 

042442 

042450 

042454 

042456 

042464 

042472 

042500 

042502 

042510 

042516 

042524 

042532 

042534 

042536 

042544 

042552 

042560 

042566 

042570 

042572 


042574 

042602 

042610 

042614 

042622 

042630 


005037 

012737 

060037 

012737 

113760 

016037 

04273 7 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 


113760 

013737 

005037 

m 

060037 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

00H72 

100100 

001164 

001164 


042572 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


0C1122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


CLR 

MOV 

ADD 

MOV 

movb 

MOV 

BIC 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOVB 

TST 

BEQ 

MOV 

MOV 

MOVB 

TST 

BNE 

MOV 

MOV 

MOV 

EMT 

MOV 

MOV 

BIC 

CMP 

BEQ 

EMT 

MOV 

MOV 

BIC 

CMP 

BEQ 

EMT 

NOP 


RELERR ; CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,$BOADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR :ADD THE I/O BASE ADDRESS 

#MOL ! PGR ! DPR ! DR Y ! VV , SGDDAT .-COMPARISON CONSTANT 
PORTA. RMCS2(R0) .-SELECT PORT A. 

RMDS(R0>,STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRL!0H,$TMP2 .-CLEAR DONT CARES 

STMP2.STMP0 .-COPY IT INTO 'STMPO' 

#ATA!VV, STMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTS, RMCS2CR0) .-SELECT PORT B. 

RMDS(RO) .STMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PI P ! WRL ! OM , STMP3 .-CLEAR DONT CARES 


STMP3.$THP1 

#ATA! VV.STMP1 

STMPO, STMP1 

75S 

STMPO 

77$ 

46 

79S 

STMP2.S8DDAT 
PORTS. PTN8R 
PORTS, RMCS2CR0) 
STMPO 
76$ 

PORTA. PTN8R 
$TMP3> SBDDAT 
PORTA, RMCS2CR0) 
STMP1 
77$ 

#-1 .RELERR 
#11 .RMCS1 (RO) 
#13,RMCS1 (RO) 
26 

STMP2.S8DDAT 
P0RTA.PTN8R 
#ATA, SBDDAT 
SGDDAT. SBDDAT 
78$ 

7 

$TMP3,$BDDAT 
PORTS, PTNBR 
#ATA, SBDDAT 
SGDDAT, SBDDAT 
79$ 

7 


COPY IT INTO '$TMP1 ' 

CLEAR PORT DEPENDENT BUS FROM THE COPY 

IS THE STATUS REGISTER HE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 


.-VERIFY THAT ATTENTION FOR PORT A IS STIL SET 


001224 000010 
001224 00 1 240 
001250 

000012 001126 


000012 001122 
001122 


PORTA. RMCS2(R0) ;SELECT PORT A 

PORTA, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) .SBDDAT ;GET CONTENTS OF RMDS 
fRMDS.SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR ;ADD RH/RM BASE ADDRESS 
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B 10 


1054 

1068 

1069 


042634 

042642 

CK.2650 

042656 

042664 

042666 

042674 

042702 

042710 

042712 

042716 

042720 


1070 

1105 


012737 

013737 

0*2737 

023737 

001414 

013737 

042737 

053737 

104062 

005137 

000240 

000004 


042722 

042722 

042726 

042730 

042732 

042736 

042744 

042752 

042760 

042760 

042766 

042772 


0430C0 

043006 

043012 

043014 

043022 

043026 

043034 

043040 

043042 

043050 

043054 

043062 

043066 


100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


113760 

005760 

001775 

012760 

005060 

013760 

005760 

001775 

012760 

005060 

113760 

005760 

001775 


001124 

001164 

001164 

001164 

001174 

001174 

001124 


80S: 

1 $: 


NOV 
NOV 
BIC 
CMP 
BE a 
NOV 
BIC 
BIS 
ENT 
CON 
NOP 
SCOPE 


#ATA,$GDDAT 

SBDDAT.STMPO 

fCATA.STNPO 

S6DDAY.STNP0 

80S 

S8DDAT,$TMP4 

#ATA.$TMP4 

STNP4.SGDDAT 

62 

CKERR 


;WHAT REGISTER SHOULD BE 

.MOVE REGISTER CONTENTS TO '$TMPO' 

.SAVE SPECIFIED BITS 
COMPARE THE BITS 
;BR IF OK 
COPY 'BAD DATA* 

CLEAR THE MASKED BITS 
•OR* WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


. ***************************************** ********************** 

♦TEST 32 TEST RESET ATTENTION 'A* 8 *8' BY MASSBUS INIT 

♦VERIFY THAT MASSBUS CLEAR RESETS BOTH PORT’S ATTENTION BITS WHEN THE 


DRIVE IS IN NEUTRAL. 

A. SET THE ATTENTION BITS FOR BOTH PORTS. 

B. VERIFY THAT THE DRIVE IS IN NEUTRAL. 

C. ISSUE A MASSBUS INIT. VERIFY THAT BOTH ATTENTION BITS HAVE 
RESET. 


**************************** *********************************** 
TST32: 

PERFORMING ONLY SINGLE TEST ? 

BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN 8 GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

MOVE *12 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 


001300 


TST 

KYBCTL 


BEO 

2$ 



BPL 

1$ 

003062 


JMP 

EXEC 

177777 

001300 

1$: MOV 

f-1 .KYBCTL 

042760 

C011 06 

2$: MOV 

#TEST32,$L?ADR 

042760 

001110 

MOV 

#TEST32.$LPERR 


TEST32: 

#32,$TSTNM 

000032 

001 "i 02 

M0V8 

001100 


MOV 

fSTACK.SP 
#10.. STINES 

000012 

001176 

MOV 


;$ET ATTENTION BITS FOR BOTH PORTS 


001224 

000010 


MOVB 

000012 


66$: 

TST 




BEQ 

177777 

000014 


MOV 

000014 



CLR 

001226 

000010 


MOV 

000012 


64$: 

TST 




BEQ 

177777 

000014 


MOV 

000014 



CLR 

001224 

000010 

65$: 

MOVB 

000012 


TST 




BEQ 


PORTA, RMCS2(R0> 
RMDS(RO) 

66 $ 

#-1 .RMER1 (RO) 
RMER1 (RO) 
PORTB.RMCS2(R0) 
RMDS(RO) 

64$ 

#-1,RMERKR0> 
RMER1 (RO) 

PORTA, RNCS2(R0) 
RMDS(RO) 

65$ 


.'SELECT PORT 64$ 
.'MAKE SURE DRIVE 


AVAILABLE 


FORCE ERRORS 
CLEAR THE ERRORS 
SELECT THE OTHER PORT 
WAIT FOR DRIVE TO TIMEOUT 
BR IF DRIVE HASN'T TIMED OUT 
FORCE ERRORS ON PORT 65$ 
CLEAR THE ERRORS . 

SELECT PORT "64S" AGAIN 
WAIT FOR DRIVE TO TIMEOUT 
BR IF DRIVE HASN'T TIMED OUT 


SEQ 0119 
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; CONFIRM THAT BOTH ATTENTION BITS ARE SET 


043070 

0430 7 6 

043104 

043110 

043116 

043124 

043130 

043136 

043144 

043152 

043160 

043162 

043170 

043176 

043204 

043206 

043212 

043214 

043220 

043222 

043226 

043234 

043242 

043246 

043254 

043262 

04326S 

043274 

043302 

043310 

043316 

043320 

043326 

043334 

043342 

043344 

043350 

043352 

043356 

043360 


043364 

043370 

043376 

043402 

043410 

043416 

043424 

043432 

043440 

043446 

043454 


113760 

013737 

005037 

016037 

012737 

060037 

012737 

0(3737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 

005737 

001402 

000137 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 

005737 

001402 

000137 


005037 

012737 

060037 

012^37 

113760 

016037 

042737 

013737 

042737 

113760 

016037 


001224 

001224 

001250 

000012 

000012 

00^122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

044176 

001226 

001226 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

044176 


001254 

000012 

001122 

111700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


H0V8 

HOV 

CLR 

HCV 

HOY 

ADO 

NOV 

HOV 

BIC 

CHP 

BEQ 

HOV 

BIC 

BIS 

EHT 

CON 

NOP 

TST 

BEQ 

JMP 

N0V8 

no/ 

CLR 

HOV 

HOV 

ADD 

HOV 

HOV 

BIC 

CHP 

BEQ 

HOV 

BIC 

BIS 

EHT 

COM 

NOP 

TST 

BEQ 

JMP 


PORTA, RHCS2(R0) -SELECT PORT A 

PORTA. PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RMDS <R0). SBDDAT ;GET CONTENTS OF RMDS 
fRMDS.SBDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0.S8DADR .-ADD RH/RM BASE ADDRESS 

fATA.SGDDAT .-WHAT REGISTER SHOULD BE 
J8DDAT.STHP0 .-MOVE REGISTER CONTENTS TO ’STMPO’ 

f*CATA, STMPO .-SAVE SPECIFIED BITS 
SGDDAT, STMPO .-COMPARE THE BITS 

67S ;BR IF OK 

S8DDAT.STMP4 ;COPY ’BAD DATA’ 

fATA,STMP4 .-CLEAR THE MASKED BITS 

STHP4, SGDDAT ;’0R* WITH GOOD DATA FOR TYPEOUT 

10 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR ;WAS ATTN BIT FOR PORT A SET ? 

.+6 ;BR IF IT WAS 

IS .-BYPASS REST OF TEST IF NOT 

P0RTB.RHCS2CR0) .-SELECT PORT B 

PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RMDS(RO) .SBDDAT .-GET CONTENTS OF RMDS 
fRMDS.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0.S8DADR .‘ADD RH/RM BASE ADDRESS 

fATA.SGDDAT ;UHAT REGISTER SHOULD BE 
SBDDAT. STMPO .-MOVE REGISTER CONTENTS TO ’STMPO* 

f*CATA, STMPO .-SAVE SPECIFIED BITS 
SGDDAT, STMPO .-COMPARE THE BITS 

69S ;BR IF OK 

SBDDAT. STMP4 .-COPY ’BAD DATA’ 

fATA.STHP4 .-CLEAR THE MASKED BITS 

STHP4. SGDDAT .-’OR’ WITH GOOD DATA FOR TYPEOUT 

10 

CKERR 


CKERR 

.♦6 

IS 


;SET THE REGISTER COMPARE ERROR INDICATOR 

.-WAS ATTN BIT FOR PORT B SET ? 

;BR IF IT WAS 

.-BYPASS REST OF TEST IF NOT 


.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


001122 

001124 
000010 
001170 
001170 
001164 
001164 
000010 
001 1 7 2 


CLR 

MOV 

ADD 

MOV 

M0V8 

HOV 

BIC 

MOV 

BIC 

movb 

MOV 


RELERR 

fRMDS.SBDADR 
RO.SBDADR 
fl 11700. SGDDAT 


.•CLEAR THE ’RELEASE ERROR ’ INDICATOR 
.-FORM THE ADDRESS OF RMDS FOR TYPEOUf 
;ADD THE I/O BASE ADDRESS 
.- COMPARSION CONSTANT 


fl 11700. SGDDAT ,-cOHPAASION CONSTANT 
PORTA, RHCS2(R0) ;SFLECT PORT A. 

RMDS(RO) .STMP2 :GET THE DRIVE STATUS REGISTER TRCM PORT A. 
fPIP! WR l!0M.STMp5 .-CLEAR DONT CARES 

STMP2.STHP0 .-COPY IT INTO ’STMPO’ 
fATA'VV.STHPO .‘CLEAR PORT DEPENDENT BITS FROM THE COPY 
F > ORTB,RHCS2(R0) .SELECT PORT B. 

RMDS(RO) .STMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
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0 TO 


043462 

043470 

043476 

043504 

043512 

043514 

043520 

043522 

043524 

043530 

043 r 36 

043544 

043552 

04^556 

043560 

043566 

043574 

043602 

043606 

043610 

043616 

043624 

043632 

043634 

043642 

043650 

043656 

043660 

043662 

043670 

043676 

043704 

043706 

043710 

043712 

043716 

043720 


042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

023737 

001401 

104007 

013737 

013737 

023737 

001401 

104007 

000240 

005737 

001402 

000137 


024001 
001 1 72 
100100 
001164 

001T64 


043710 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

17777’ 

0000H 

000013 

001170 

C01224 

001124 


001172 

001226 

001124 


001254 

044176 


043732 

043740 

043746 

043752 

043760 

043766 

043772 

043776 

044004 

044012 

044020 

044022 

044030 


113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 


001172 


SIC 

#PIP ! WRL ! ON, $THP3 

001166 


MOV 

$TNP3,$TNP1 

001166 


BIC 

#ATA!V7,$TNP1 

001166 


CMP 

STMPO, STNP1 



BNE 

71$ 



TST 

STMPO 



BNE 

73$ 



EMT 

46 



JMP 

75$ 

001126 

71$: 

MOV 

STNP2, SBDDAT 

001240 


MOV 

PORTS. PTNBR 

000010 


movb 

PORTB.RMCS2CRO) 



TST 

STMPO 



BEQ 

72$ 

001240 


MOV 

PORTA, PTNBR 

001126 


MOV 

STNP3,$BDDAT 

000010 


MOVB 

PORTA, RNCS2(R0> 



TST 

STNP1 



BNE 

73$ 

001254 

72$: 

MOV 

0-1.RELERR 

000000 


MOV 

fll.RMCSKRO) 

000000 


MOV 

#13.RNCS1(A0) 



EMT 

26 

001126 

73$: 

MOV 

STMP2.SBDDAT 

001240 


NOV 

PORTA, P T NBR 

001126 


CMP 

SGDDAT.SBDDAT 



BEQ 

74$ 



EMT 

7 

0U1126 

74$: 

NOV 

$TMP3,$BDDAT 

001240 


MOV 

PORTS, PTNBR 

001126 


CMP 

SGDDAT.SBDDAT 



BEQ 

75$ 



EMT 

7 


75$: 

NOP 




TST 

RELERR 



BEQ 

.+6 



JMP 

1$ 


043724 012760 000040 


001224 
001224 
001250 
000012 
000012 
001122 
001124 
001126 
077777 
00* 1 24 

001126 

100000 


.•CLEAR DHNT CARES 
COPY IT INTO 'STHP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 

BR IF NOT 

REGISTERS ARE THE SANE : ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT 8. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 


LOOK FOR BIT FAILURES WHEN RMDS 
CHANGE PORT NUMBER 
ALL BITS OK ? 

BR IF OK FROM PORT A. 


READ 


.-ISSUE THE NASSBUS INIT 


000010 

MOV 

#CLR.RMCS2CR0) 


.•CHECK THE ATTENTION BITS OF BO 

000010 

MOVB 

PORTA, RMCS2(R0) 

001240 

MOV 

PORTA, PTNBR ;M 


CLR 

CKERR 

001126 

MOV 

RMDS(RO) .SBDDAT 

001122 

MOV 

#RNDS,$8DADR ; 

ADD 

R0.S8DADR 


CLR 

SGDDAT 

001164 

MOV 

SBDDAT, STMPO 

001164 

BIC 

#*CATA, STMPO ; 

001164 

CMP 

SGDDAT. STMPO 


BEQ 

76$ 

001174 

MOV 

SBDDAT, STMP4 

001174 

BIC 

IATA.STMP4 


CHECK RMDS FOR BIT FAILURES - FROM PORT B* 

CHANGE PORT NUMBER 

SEE IF READ OK FROM PORT B. 

BR IF OK 


WAS DRIVE IN NEUTRAL ? 
BR IF IT WAS 
BYPASS RESET OF TEST 


.-ISSUE A NASSBUS INIT 
BOTH PORTS 

;SELECT PORT A 

>V§ PORT ADDRESS TO LOCATION FOR TYF 
.•CLEAR THE 'CHECK ERROR' INDICATOR 
;GET CONTENTS OF RMDS 


.ADD RH/RH BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO 
SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;8R IF OK 
.-COPY 'BAD DATA' 

.•CLEAR THE MASKED BITS 


'STMPO' 
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10 


1109 

1123 

1124 


044036 

044044 

044046 

044052 

044054 

044062 

044070 

044074 

044102 

044110 

044114 

044120 

044126 

044134 

044142 

044144 

044152 

044160 

044166 

044170 

044174 

044176 


1125 

1169 



053737 

104051 

005137 

SlPt? 

005037 

016037 

012737 

005037 

013737 

042737 

023737 

001414 

013737 

888 

104051 

005137 

000240 

000004 



001174 

001250 

001124 

76$: 

BIS 

EMT 

COM 

NOP 

STMP4.SGDDAT 

51 

CKERR 

001226 

000010 


MOVB 

PORTS. RMCS2CR0) 

001226 
001 2jO 

001240 


MOV 

CLR 

PORTB.PTNBR ;H 
CKERR 

000012 

001126 


MOV 

PfDSCR0).$8DDAT 

000012 

001122 

001124 

001122 


MOV 

ADD 

CLR 

#RMDS.$BDADR ; 
RO.SBDADR 

SGDDAT 

mm 

001164 


MOV 

SBDDAT. STMPO 

001164 


BIC 

#* CATA. STMPO .’ 

001124 

001164 


CMP 

BEQ 

MOV 

SGDDAT, STMPO 

78$ 

SBDDAT.STMP4 

001126 

001174 


100000 

001174 


BIC 

#ATA,$TMP4 
STMP4. SGDDAT 

51 

CKERR 

001174 

001250 

001124 

78$: 

BIZ 

EMT 

COM 

NOP 


; *0R' WITH GOOD DATA FOR TYPEOUT 
;SET THE REGISTER COMPARE ERROR INDICATOR 
;SELECT PORT B 

JVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
.-CLEAR THE 'CHECK ERROR' INDICATOR 
:GET CONTENTS OF RMDS 
O&M REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO 'STMPO' 

SAVE SPECIFIED BITS 
; COMPARE THE BITS 

.BB i f rw 

;COPY 'BAD DATA' 

.’CLEAR THE MASKED BITS 
; 'OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 

.’LOOP ? 


•TEST 33 


RESET ATTENTION 'A' t '8' BY RMAS 


•VERIFY THAT BOTH ATTENTION BITS CAN BE RESET BY WRITING THE 
•APPROPRIATE BIT IN THE ATTENTION SUMMARY REGISTER. 

• A. SET THE ATTENTION BITS FOR BOTH PORTS. 

• B. VERIFY THE DRIVE IS IN NEUTRAL. 

I C. WRITE THE DRIVE'S ATTENTION BIT IN RMAS. VERIFY 

* THAT BOTH ATTENTION BITS ARE RESET AS SEEN BY RMAS. 

* 


005737 001300 
001406 


TST33: 


17777? 001300 
044236 091106 
001110 


012737 044236 


112737 000033 001102 
012706 001100 
012737 000002 001176 


TST 

KYBCTL 

BEQ 

2$ 

BPL 

1$ 

JMP 

EXEC 

1$: NOV 

#-1 .KYBCTL 

2$: MOV 

#TEST33,$LPADR 

MOV 

TEST33: 

#TEST33,$LPERR 

MOVB 

#33,$TSTNM 

MOV 

fSTACK.SP 

MOV 

#2., STINES 


.•PERFORMING ONLY SINGLE TEST ? 

<QR |f tyQJ 

;-BR IF JUST ENTERED TEST 
.•RETURN t GET NEXT TEST NUMBER 
;SET SIN6LE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.’SETUP ERROR LOOP ADDRESS 

.•MOVE #33 TO TEST NUMBER 
.•LOAD THE STACK POINTER 
;;D0 2. ITERATIONS 


044256 113760 001224 000010 
044264 005760 000012 
044270 001775 


.-SET ATTENTION BITS FOR BOTH PORTS 

MOVB PORTA. RMCS2(R0) .’SELECT PORT 64$ 

66$: TST RMDS(RO) .'MAKE SURE DRIVE 

BEQ 66$ 


AVAILABLE 


i 

L 


SEQ 0’2’ 


5 


I 


SEQ 0122 
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F iO 


0A4272 
044300 
044304 
04431 2 
044316 
C44320 
04, A 326 
04,4332 
044340 
044344 


044346 

044354 

044362 

044366 

044374 

044402 

044406 

044414 

044422 

044430 

044436 

044440 

044446 

044454 

044462 

044464 

044470 

044472 

044476 

044500 

044504 

044512 

044520 

044524 

044532 

044540 

044544 

044552 

044560 

044566 

044574 

044576 

044604 

044612 

044620 

044622 

044626 

044630 

044634 

044636 


044642 

044646 


012760 

005060 

013760 

005760 

001775 

012760 

005060 

113760 

005760 

001775 


113760 
013737 
005037 
016037 
012737 
060037 
012737 
01373/ 
042737 
023737 
001414 
013737 
042737 
053737 
104010 
005137 
000240 
005737 
001402 
000137 
113760 
013737 
005037 
016037 
012737 
060037 
012737 
01 3737 
042737 
023737 
001414 
013737 

m 

1 0401 6 
005137 

m 

001402 

000137 


005037 

012737 


177777 

000014 

001226 

000012 

17 7777 
000014 
001224 
000012 


001224 

001224 

001250 

000012 

000012 

0C1122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

045322 

0C1226 

001226 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

045322 


001254 

000012 


000014 


NOV 

#-1 .RNER1 (RO) 

FORCE ERRORS 


CLR 

RNERKRO) 

CLEAR THE ERRORS 

000010 


NOV 

PORTB.RHCS2(RO> 

SELECT THE OTHER PORT 

64$: 

TST 

RNDS(RO) 

WAIT FOR DRIVE TO TINEOUT 


BEQ 

64$ 

BR IF DRIVE HASN'T TINED OUT 

000014 


NOV 

#- 1 ,RHER1 (RO) 

FORCE ERRORS 3N PORT 65$ 


CLR 

RHER1 (RO) 

CLEAR THE ERRORS 

SELEC7 PORT "64$" AGAIN 

000010 


NOVB 

PORTA. RNC Si (RO) 

65 i: 

TST 

RNDS(RO) 

WAIT FOR DRIVE TO TINEOUT 


BEQ 

65$ 

BR IF DRIVE HASN'T TINED OUT 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 
C011 74 
001124 


000010 

001240 

001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


; CONFIRM THAT 

wove 

NOV 
CLR 
NOV 
NOV 
ADO 
NOV 
NOV 
81 C 
CHP 
BEQ 
NOV 
B1C 
BIS 
ENT 
CON 

67$: NOP 

TST 
BEQ 
JNP 
NOVB 
NOV 
CLR 
NOV 
NOV 
ADD 
NOV 
NOV 
BIC 
CHP 
BEQ 
NOV 
BIC 
BIS 
ENT 
CON 

69$: NOP 

TST 
BEO 
JNP 


BOTH ATTENTION BITS ARE SET 
PORTA, RNCS2CR0) ;SELECT PuNT A 

PORTA, PTNBR ;NOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RNDS(RO) ,$8DDAT ;6ET CONTENTS OF RNDS 
fRHDS.SBDADR ;FORN RE6ISTER ADDRESS OF ERROR NESSAGE 

D rh/RH BASE ADDRESS 
.WHAT RE6ISTER SHOULD BE 

;NOVE REGISTER CONTENTS TO 'STNPO' 

.SAVE SPECIFIED BITS 
; CONPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA* 

; CLEAR THE HASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 


R0.S8DADR 
fATA.SGDDAT 
SBDDAT. STNPO 
#*CATA,$TNPO 
SGDDAT, STNPO 
67$ 

SBDDAT, 5TNP4 
#ATA t $TNP4 
STNP4, SGDDAT 
10 

CKERR 


;SET THE REGISTER CONPARE ERROR INDICATOR 


CKERR ;UAS ATA SET FOR A?? 

.♦6 ; YES - CONTINUE 

1$ .-BYPASS REST OF TEST 

PORTS, RNCS2CR0) ;SELECT PORT B 

POTB, PTNBR HOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RNDS(RO), SBDDAT .GET CONTENTS OF RNDS 
fRHDS,S8DADR ;FORN REGISTER ADDRESS OF ERROR NESSAGE 
.-ADD RH/RH BASE ADDRESS 
.-WHAT REGISTER SHOULD BE 

,-HOVE REGISTER CONTENTS TO 'STNPO' 

.-SAVE SPECIFIED BITS 
,-CONPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 

.-CLEAR THE HASKED BITS 
,*'0R' WITH GOOD DATA FOR TYPEOUT 


wnnvd * •wr 

RO.SBDADR 
fATA.SGDDAT 
SBDDAT. STNPO 
#*CATA,$THPO 
SGDDAT, STNPO 
69S 

S8DDAT.STNP4 
#ATA,$THP4 
STHP4, SGDDAT 
10 

CKERR 


CKERR 

.♦6 

IS 


.-SET THE REGISTER CONPARE ERROR INDICATOR 

.-WAS ATA SET FOR 8?? 

;YES - CONTINUE 
.-BYPASS REST OF TEST 


.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


001122 


CLR RELERR 

NOV #RHDS,$6DADR 


.CLEAR THE 'RELEASE ERROR ' INDICATOR 
,-FORN THE ADDRESS OF RNDS FOR TYPEOUT 
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RESET ATTENTION 'A* l ‘B* BY NBAS 


SEO 0123 


044654 

044660 

044666 

044674 

044702 

044710 

044716 

044724 

044732 

044740 

044746 

044754 

044762 

044770 

044772 

044776 

045000 

045002 

045006 

045014 

045022 

045030 

045034 

045036 

045044 

045052 

045060 

045064 

045066 

045074 


045110 

045112 

045120 

045126 

045134 

045136 

045140 

045146 

045154 

045162 

045164 

045166 

045170 

045174 

045176 


060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

$8% 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 


012760 

012760 

104026 


013737 

023737 

001401 

104007 


013737 

013737 

023737 

001401 

104007 

W 

o 


001122 

111700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


045166 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

001124 


001172 

001226 

001124 


001254 

045322 


00112** 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 71$: 
001240 
000010 


001240 

001126 

000010 


001254 72$: 

000000 

000000 

001126 73$: 
001240 
001126 


001126 74$: 

001240 

001126 


ADD 

NOV 

N0V8 

NOV 

BIC 

NOV 

BIC 

NOVB 

NOV 

BIC 

NOV 

BIC 

CNP 

BNE 

TST 

BNE 

ENT 

JNP 

NOV 

NOV 

NOVB 

1ST 

BEQ 

NOV 

NOV 

NOVB 

TST 

BNE 

NOV 

NOV 

NOV 

ENT 

NOV 

NOV 

CNP 

BEO 

ENT 

NOV 

NOV 

CNP 

BEO 

ENT 

NOP 

TST 

BEO 

JNP 


RO.SBDADR ;ADD THE I/O BASE ADDRESS 

fill 700. SGDDAT .CONPARSION CONSTANT 
PORTA, RNCS2(R0) .-SELECT PORT A. 

RNDS(R0).$TNP2 :GET THE DRIVE STATUS REGISTER FRON PORT A. 
#PIP.'WRL!QN,STNP2 .CLEAR DONT CARES 

SW2.STNP0 .-COPY IT INTO 'STNPO* 

#ATA!W, STNPO .-CLEAR PORT DEPENDENT BITS FRON THE COPY 

PORTS. RNCS2CR0) .SELECT PORT B. 

RNDS(kO) .STNP3 :GET THE DRIVE STATUS REGISTER FRON PORT B. 
*P!P!URL!0N.$TNP3 .‘CLEAR DONT CARES 


STNP3.STNP1 
#ATA! W.STNP1 
STNPO. STNP1 
71$ 

STNPO 

73$ 

46 

75$ 

STNP2.SBDDAT 

P0RT8.PTNBR 

PORTS, RNCS2CR0) 

STNPO 

72$ 

PORTA, PTNBR 

STNP3.SBDDAT 

PORTA, RNCS2(R0> 

STNP1 

73$ 

f-1 ,RELERR 

fll.RNCSKRO) 

#13,RNCS1(R0) 

26 

STNP2 , SBDDAT 
PORTA, PTNBR 
SGDDAT, SBDDAT 
74$ 

7 

STNP3. SBDDAT 
PORTB. PTNBR 
SGDDAT. SBDDAT 
75$ 

7 

RELERR 

.♦6 

IS 


COPY IT INTO 'STNP1 ' 

CLEAR PORT DEPENDENT BITS FRON THE COPY 

IS THE STATUS REGISTER THE SANE FRON BOTH PORTS ? 

BR J f ffQJ 

REGISTERS ARE THE SANE: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR HESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FRON PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FRON PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RNDS READ 
CHANGE PORT NUNBER 
ALL BITS OK ? 

BR IF OK FRON PORT A. 

CHECK RNDS FOR BIT FAILURES - FRON PORT B. 

CHANGE PORT NUNBER 

SEE IF READ OK FRON PORT B. 

BR IF OK 


WAS DRIVE IN NEUTRAL?? 
YES' ' 

BYPASS REST OF TEST 


.-WRITE THE ATTENTION BIT 


045202 

013760 

001236 

000016 

NOV 

ASRI.RNAS(RO) 






: VERIFY THAT BOTH ATTENTIONS ARE 

RESET BY READING RNAS 

045210 

016037 

000016 

001126 

NOV 

PNAS(RO), SBDDAT 

.-GET ATTENTION SUNNARY 

045216 

033737 

001236 

001126 

BIT 

ASR 1 . SBDDAT 

;IS THE ATTENTION RESET ?? 

045224 

001414 



BEO 

2$ 

;YES ! i 

04 5226 

010037 

001122 


NOV 

RO.SBDADR 

.-SETUP REGISTER ADDRESS 

045232 

062737 

000016 

001122 

ADD 

fRNAS.SBDADR 



i 


IZRNHAO 

T 33 
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045240 013737 001126 001124 
045246 043737 001236 001124 
045254 104060 

045256 


1170 

1183 

1184 


045256 

045264 

045272 

045276 

045300 

045306 

045314 

045320 

045322 


1185 

1219 


045402 

045410 

045414 

045422 

045430 

045436 

045442 

045450 

045456 

045464 


001775 


001775 

000004 


045324 

045324 

045330 

045332 

045334 

045340 

045346 

045354 

045362 

m 

045374 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 

113760 

012760 


NOV S8DDAT.SGDDAT 
BIC ASR1.1G00AT 

ENT 60 


.•SETUP EXPECTED DATA 
.•RESET THIS DRIVES BIT 


2S: 

.WAIT FOR THE DRIVES TO RELEASE BY TINEOUT 


001224 

000010 


NOVB 

PORTA, RNCS2(R0) 

001224 

C01240 


NOV 

PORTA. PTNBR ;N 

000012 


3S: 

TST 

RNDS(RO) 




BEQ 

3S 

001226 

000010 


NOVB 

PORTS. RHCS2IR0) 

001226 

001240 


NOV 

PORTS. PTN8R ;H 

000012 


4$: 

TST 

RNDS(RO) 




BEO 

4$ 



IS: 

SCOPE 



:SELECT PORT A 

)VE PORT ADDRESS TO LOCATION FOR 
;NAKE SURE DEVICE IS AVAILABLE 

•SELECT PORT B 

)v£ PORT ADDRESS TO LOCATION FOF 
;NAKE SURE DEVICE IS AVAILABLE 


001300 


003062 

177777 

045362 

045362 

000034 

001100 

000012 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 

001224 

177777 


TEST 34 PORT *A* ALTERNATE ATTENTION PATH TEST 

VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 

A. SET THE ATTENTION BIT FOR PORT 'A*. 

B. SEIZE THE DRIVE THROUGH PORT 'B* BY WRITING O’S INTO RHDS. 

C. READ THE ATTENTION REGISTER t VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 


TST34: 


001300 

001106 

001110 

001102 

001176 


000010 

000000 

000000 

000010 

000000 

000000 

000010 

000014 


TST 

KY8CTL 

BEQ 

2$ 

BPL 

IS 

JNP 

EXEC 

IS: NOV 

*-1 .KYBCTL 

2S: NOV 

*TEST34,SLPADR 

NOV 

#TEST34,SLPERR 

TEST34: 

NOVB 

*34.STSTNN 

NOV 

*STACK ,SP 

NOV 

*10.. STINES 


.•PERFORHING ONLY SINGLE TEST ? 
*BR IF NOT 

;BR IF JUST ENTERED TEST 
.•RETURN % GET NEXT TEST NUNBER 
;SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
.•SETUP ERROR LOOP ADDRESS 

;NOVE *34 TO TEST NUNBER 
.-LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


.CLEAR ATTENTION BITS FOR BOTH PORTS 


N0V8 

CLR 

NOV 

NOV 

N0V8 

CLR 

NOV 

NOV 

N0V8 

NOV 


PORTA, RNCS2IR0) 
RNDS(RO) 

*11 .RNCS 1 (RO) 
*13,RNCS1(R0) 


.•SELECT PORT *A 
.SEIZE THE DRIVE 
.•ISSUE DRIVE CLEAR 
.‘RELEASE THE DRIVE 


PORfB.RNCS2(R0) .-SELECT PORT *B 


RNDS(RO) 

#11 .RNCS1 (RO) 
*13,RNCS1 (RO) 
PORTA, RHCS2CR0) 
*-1 ,RNER1 (RO) 


•B' 


•SEIZE THE DRIVE THROUGH PORT 
.‘ISSUE DRIVE CLEAR 
; RELEASE THE DRIVE 
•SELECT PORT A 

.-SET ERRORS TO FORCE ATTN BIT ON PORT A 


SEQ 0*2*. 


SEQ 0125 


CZRNhao 

T34 


k* 80 DUAL PORT Rf 1 KACRO V04.00 15-JAN-82 07 : 09:22 PAGE 9-88 
PORT ‘A’ ALTERNATE ATTENTION PATH TEST 


10 


045472 

045476 

045504 

045510 

045512 

045520 

045524 

045532 

045540 

045544 

045552 

045560 

045566 

045574 

045600 

045606 

045614 

045622 

045630 

045632 

045634 


005060 

113760 

005760 

001775 

012737 

060037 

013737 

013737 

005137 

012737 

113760 

013737 

013737 

005060 

016037 

013737 

043737 

023737 

001401 

104053 


000014 



LLR 

RNERKRO) 

001226 

000010 


HDV8 

PORTB.RMCS2CRO) 

000012 


1$: 

TST 

RMDS(RO) 




BEQ 

1$ 

000016 

001122 


MOV 

fRMAS.SBDADR 

001122 



ADD 

RO.SSDADR 

001236 

001124 


MOV 

ASR1.SGDDAT 

001236 

001166 


NOV 

ASR1.STNP1 

001166 



COM 

STNP1 

045600 

001110 


MOV 

#2S.$LPERR 

001226 

000010 


MOVB 

PGRTB.RNCS2(P0) 

001226 

001240 


MOV 

P0RTB.PTN8R ;N 

001226 

001242 


MOV 

PORTB.SEIZPT 

000012 



CLR 

RMDS(RO) 

000016 

001126 

2$: 

MOV 

RMAS(RO) .S8DDAT 

001126 

001164 


MOV 

SBDDAT.STMPO 

001166 

001164 


BIC 

STMPI.STNPO 

001124 

001164 


CMP 

S6DDAT.STNP0 




BEQ 

3$ 




EMT 

53 


045634 113760 001226 
045642 013737 001226 
045650 012760 000013 


045656 

045662 

045670 

045674 

045702 

045710 

045716 

045724 

045732 

045740 

045746 

045754 

045762 

045770 

045776 

046004 

046006 

046012 

046014 

046016 

046022 

046030 

046036 

046044 

046050 

046v52 

046060 

046066 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 


; CLEAR THE ERRORS 
.SELECT PORT B 

;WAIT FOR DRIVE TO RETURN TO NEUTRAL 
;BR IF STILL SEIZED BT PORT A 
.-FORM ADDRESS OF ATTN REG IF ERROR 
;ADD THE ADDRESS BASE 
.GOOD DATA FOR ERROR MESSAGE 
.-MAKE DATA COMPARE MASK 
.•COMPLEMENT IT 
.-LOAD LOOP ON ERROR ADDRESS 
;SELECT PORT 8 

)VE PORT ADDRESS TO LOCATION FOR TYPE! 

SEIZED’ PORT ADDRESS 
.•SEIZE THE DRIVE THROUGH PORT B 
;GET THE CONTENTS OF THE ATTENTION Rl 
;PUT CONTENTS INTO WORKING LOCATION 
.•CLEAR OTHER BITS 
;SEE IF ATTN BIT FOR DRIVE SET 
;8R IF SET 


3$: 

.•RELEASE THE 


DRIVE FROM PORT B 


000010 

00240 

000000 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


046216 

001170 

001226 

001226 

001164 

001224 

001172 

001224 


MOVB PORTS. RMCS2(R0) .’SELECT PORT B 

MOV P0RTB.PTN8R ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1(R0> .-ISSUE RELEASE THROUGH PORT B 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

RELERR .-CLEAR THE ‘RELEASE ERROR ‘ INDICATOR 

#RMDS,S8DADR .'FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SSDADR .’ADD THE I/O BASE ADDRESS 

fMOL ! PGM ! DPR ! DRY ! VV.SGDDAT .-COMPARISON CONSTANT 
PORTA. RMCS2(R0) .-SELECT PORT A. 

RMDS(RO) .STHP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#pip*wrl!on,$tmp2 .-CLEAR DONT CARES 

$TNP2.$TNP0 .-COPY IT INTO ‘$TMP0‘ 

#ATA!W.$TNP0 .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS. RMCS2(R0) .-SELECT PORT B. 

RF©S(R0),ST8P3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRl!0M.$TMP$ .-CLEAR DONT CARES 


001122 

CLR 

MOV 

001124 

ADD 

MOV 

000010 

MOVB 

001170 

MOV 

001170 

BIC 

001164 

MOV 

001164 

BIC 

000010 

N0V8 

001172 

MOV 

001172 

BIC 

001166 

MOV 

001166 

BIC 

001166 

CMP 

001126 64$: 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

001240 

MOV 

000010 

MOVB 

001240 

TST 

BEQ 

MOV 

001126 

MOV 

000010 

MOVB 


»TMP3.$TMP1 
#ATA!VV,STMP1 
STNPO.STNPI 
64$ 

$THPO 

66 $ 

46 

68 $ 

$TMP2.$BDDAT 
PORTS. PTN8R 
PORTS. RMCS2(R0) 
$THPO 
65$ 

PORTA.PTNBR 
$TMP3.$BDDAT 
PORTA, RHCS2(R0) 


COPY IT INTO '$TMP1 1 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 
8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

8 R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS £Q 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT POPT A. 



SEO 0126 
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PORT 'A* ALTERNATE ATTENTION PATH TEST 


046074 

046100 

046102 

046110 

0-6116 

046124 

046126 

046134 

046142 

046150 

046156 

046160 

046162 

046170 

046176 

046204 

046212 

046214 

046216 

046220 


005737 

m 

012760 
012760 
104026 
013737 
013737 
042737 
023737 
001401 
104 007 
013737 
013737 
042737 
023737 
001401 
104007 
000240 
000004 


001166 

177777 

0000 n 

000013 

001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001254 

000000 

000000 

001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


TST STMP1 

BNE 66S 

NOV #-1 .RELERR 

NOV #11 .RNCS1 (RO) 

NOV #13,RNCS1(R0) 

ENT 26 

NOV STNP2.S80DAT 

NOV PORTA.PTNBR 

BIC #ATA.$8DDAT 

CNP SGDDAT.S8DDAT 

BEQ 67$ 

ENT 7 

NOV $TNP3,$BDDAT 

NOV PORTB.PTNBR 

BIC #ATA.$8DDAT 

Cm SGDDAT.SBDDAT 

BEO 68$ 

ENT 7 

NOP 

SCOPE 


SEE IF STATUS EG ZERO FRON PORI B. 

SR IF NOT 

SET ’RELEASE ERROR’ INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RNDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FRON PORT A. 


CHECK RNDS FOR BIT FAILURES 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FRON PORT B. 
BR IF OK 


.-LOOP ? 


- FRON PORT B. 


046222 
046222 
046226 
046230 
046232 
046236 
046244 
046252 
046260 
046260 
046266 
046 772 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


001300 


003062 

177777 

046260 

046260 

000035 

001100 

000012 


TEST 35 


PORT 'B' ALTERNATE ATTENTION PATH TEST 


VERIFY THAT THE ALTERNATE ATTENTION REGISTER READ PATH IS OPERATIONAL. 

A. SET THE ATTENTION BIT FOR PORT ’B\ 

B. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RNDS. 

C. READ THE ATTENTION REGISTER & VERIFY THAT THE ATTENTION BIT 
FOR THE DRIVE IS SET. 


001300 

001106 

001110 

001102 

001176 


• • *************** ************************************************ 

TST35: 

TST KY8CTL .-PERFORMING ONLY SINGLE TEST ? 

BEO 2$ ;8R IF NOT 

BPL 1$ ;8R IF JUST ENTERED TEST 

JNP EXEC .-RETURN % GET NEXT TEST NUMBER 

1$: NOV #-1,KY8CTL ;SET SINGLE TEST INDICATOR 

2$: NOV #TEST35.$LPADR .-SETUP SCOPE LOOP ADDRESS 

NOV #TEST35.?LPERR ; SETUP ERROR LOOP ADDRESS 


TEST35: 


#35,ST$T NM 
fSTACK.SP 
#10.. STINES 


,-NOVE #35 TO TEST NUMBER 
.-LOAD THE STACK POINTER 
;;D0 10. ITERATIONS 


.-CLEAR ATTENTION BITS FOR BOTH PORTS 


046300 

046306 

046312 

046320 

046326 

046334 


113760 

005060 

012760 

012760 

113760 

005060 


001224 

000012 

000011 

000013 

001226 

000012 


000010 

000000 

000000 

000010 


PORTA. RNCS2CR0) 
RNDS(RO) 

#11 .RNCS1 (RO) 
#13,RNCS1 (RO) 
PORTS. RNCS2CR0) 
RNDS(RO) 


SELECT PORT #A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT ’B' 
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T 35 PORT 'B' ALTERNATE ATTENTION PATH TEST 


SEO 0127 


046540 

046546 

046554 

046562 

046570 

046574 

046402 

046406 

046410 

046416 

046422 

046450 

046456 

046442 

046450 

046456 

046464 

046472 

046476 

046504 

046512 

046520 

046526 

046530 

046532 


012760 

012760 

113760 

012760 

005060 

113760 

005760 

001775 

012737 

060037 

013737 

013737 

005137 

012737 

113760 

013737 

013737 

005060 

016037 

013737 

043737 

023737 

001401 

104053 


000011 

000000 


MOV 

000013 

000000 


MOV 

001226 

000010 


MOVB 

177777 

000014 


MOV 

000014 



CLR 

001224 

000010 


MOVB 

000012 


IS: 

TST 



BEQ 

000016 

001122 


MOV 

001122 



ADD 

001236 

001124 


MOV 

001236 

001166 


MOV 

001166 



COM 

046476 

001110 


MOV 

001224 

000010 


MOVB 

001224 

001240 


MOV 

001224 

001242 


NOV 

000012 



CLR 

000016 

001126 

2S: 

MOV 

001126 

001164 


MOV 

001166 

001164 


BIC 

001124 

001164 


CMP 




BEQ 




EMT 


#11.RHCS1(R0> 
#13.RNCS1(R0> 
PORTB.RNCS2IRO) 
#-1 .RNERKRO) 
RMERKRO) 

PORTA. RNCS2(R0) 
RMDS(RO) 

1 $ 

fRMAS.SBOADR 

RO.SBDADR 

ASR1.SGDDAT 

ASR1.STNP1 

STMP1 

#2S.SLPERR 

PORTA,RNCS2(RO> 


; ISSUE DRIVE CLEAR 
.■RELEASE THE DRIVE 
.•SELECT PORT B 

;SET ERRORS TO FORCE ATTN BIT ON PORT B 
.’CLEAR THE ERRORS 
’SELECT PORT A 

.’WAIT FOR DRIVE TO RETURN TO NEUTRAL 
;8R IF STILL SEIZED BY PORT 8 
.-FORM ADDRESS OF ATTN REG IF ERROR 
.‘ADD THE ADDRESS BASE 
.’GOOD DATA FOR ERROR MESSAGE 
.’MAKE DATA COMPARE MASK 
.’COMPLEMENT IT 
.•LOAD LOOP ON ERROR ADDRESS 
.SELECT PORT A 
PORTA ^PTNBR .’MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTA. SEIZPT SEIZED' PORT ADDRESS 

.’SEIZE THE DRIVE THROUGH PORT A 
.’GET THE CONTENTS OF THE ATTENTION REG 
;PUT CONTENTS INTO WORKING LOCATION 
.’CLEAR OTHER BITS 
;SEE IF ATTN BIT FOR DRIVE SET 
;BR IF SET 


046532 113760 001224 000010 
046540 013737 001224 001240 
046546 012760 000013 000000 


3S: 

.’RELEASE THE 

MOVB 

MOV 

MOV 


RMDS(RO) 
RMAS(RO) .SBDDAT 
S8DDAT.STMP0 
STMP1. STMPO 
SGDDAT. STMPO 
3S 
53 


DRIVE FROM PORT A 

PORTA. RMCS2CR0) .’SELECT PORT A 

PORTA. PTNBR .’MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
f13.RMCS1(R0) .’ISSUE RELEASE THROUGH PORT A 


; VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


046554 

046560 

046566 

046572 

046600 

046606 

046614 

046622 

046630 

046636 

046644 

046652 

046660 

046666 

046674 

046702 

046704 

046710 

046712 

046714 

046720 

046726 

046734 

046742 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


047114 

001170 

001226 

001226 

001164 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 64J: 
001240 
000010 


CLR 

MOV 

ADD 

MOV 

MOVB 

MOV 

81 C 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOVB 

TST 


RELERR .’CLEAR THE ’RELEASE ERROR ’ INDICATOR 

#RMDS,S8DADR .’FORM THE ADDRESS OF RMDS FOR TYPEOUT 

RO.SBDADR .’ADD THE I/O BASE ADDRESS 

#MOL!PGN!DPR!DRY!W.SGDDAT ; COMPARISON CONSTANT 
PORTA. RMCS2<R0) .’SELECT PORT A. 

RMDS(RO) .STNP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIPitfRL*ON.STMP$ .’CLEAR DONT CARES 

STMP2.STMP0 .’COPY IT INTO ’STMPO* 

AATAJVV. STMPO .’CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTB.RMCS2(R0) .’SELECT PORT B. 

RMDS(R0).STNP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRl!0N.STMP$ ; CLEAR DONT CARES 


STMP3.STMP1 
#ATA!VV.$TMP1 
STMPO. STMP1 
64S 
STMPO 
66S 
46 
68S 

STMP2.SBDDAT 
PORTB, PTNBR 
PORTB.RMCS2CR0) 
STMPO 


KOPY IT INTO 'STMP1 ’ 

; CLEAR PORT DEPENDENT BITS FROM THE COPY 

;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

;BR IF NOT 

.•REGISTERS ARE THE SAME: ARE THEY ZERO ? 

;BR IF NOT 

.•BYPASS THE REST OF THE CHECKS 
.’SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
.■SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
; SELECT PORT B. 

.’SEE IF STATUS EQ 0 FROM PORT A. 



iZRNhAQ RM80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07 : 09:22 PAGE 9-91 
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SEQ 0128 


1237 

1254 

1255 


046746 

0014’4 




BEO 

65$ 

046750 

013737 

001224 

001240 


MOV 

PORTA, PTNBR 

046756 

013737 

001172 

001126 


MOV 

$TMP3,$BDDAT 

046764 

113760 

001224 

000010 


MOVB 

PORTA, RMCS2(R0) 

046772 

005737 

001166 



TST 

$TMP1 

046776 

001012 




BNE 

66$ 

047000 

012737 

177777 

001254 

65S: 

MOV 

#-1 .RELERR 

047006 

012760 

000011 

000000 


MOV 

#11,RMCS1(R0> 

047014 

012760 

000013 

000000 


MOV 

#13.RMCS1(R0) 

047022 

104026 




EMT 

26 

047024 

013737 

001170 

001126 

66S: 

MOV 

$TMP2,$BDDAT 

047032 

013737 

001224 

001240 


MOV 

PORTA, PTNBR 

047040 

042737 

100000 

001126 


BIC 

#ATA,$BDDAT 

047046 

023737 

001124 

001126 


CMP 

$GDDAT,$BDDAT 

047054 

001401 




BEO 

67$ 

047056 

104007 




EMT 

7 

047060 

013737 

001172 

001126 

67$: 

MOV 

$TMP3,$BDDAT 

047066 

013737 

001226 

001240 


MOV 

PORTB, PTNBR 

047074 

042737 

100000 

001126 


BIC 

#ATA,$BDDAT 

047102 

023737 

001124 

001126 


CMP 

$GDDAT,$BDDAT 

047110 

001401 




BEO 

68$ 

047112 

104007 




EMT 

7 

047114 

000240 



68$: 

NOP 


047116 

000004 




SCOPE 






;;****' 

.•♦TEST 

k*«*****i 

36 

***************** 
SET ATTENTION ', 


1256 

1285 


047120 

047120 

047124 

047126 

047130 

047134 

047142 

047150 

047156 

047156 

047164 

047170 


BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA* FOR ERPOR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 
CHANGE PORT NUMBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 

BR IF OK 


;LOOP ? 


TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 

A. ISSUE A OFFSET COMMAND THROUGH PORT 'A'. 

B. WAIT FOR THE OFFSET COMMAND TO COMPLETE ('DRY' TO BECOME 
•V). VERIFY THAT THE ATTENTION BIT FOR PORT 'A' IS SET AND 
THAT THE ATTENTION BIT FOR PORT 'B* IS NOT SET. 

C. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 

*************************************************************** 

TST36: 


005737 

001300 


TST 

KYBCTL 

.‘PERFORMING ONLY SINGLE TEST ? 

001406 



BEO 

2$ 

;8R IF NOT 

100002 



BPL 

1$ 

;BR IF JUST ENTERED TEST 

000137 

003062 


JMP 

EXEC 

; RETURN ft GET NEXT TEST NUMBER 

012737 

177777 

001300 

1$: MOV 

#~1 ,KYBCTL 

;SET SINGLE TEST INDICATOR 

012737 

047156 

001106 

2$: NOV 

#TEST36,SLPADR 

; SETUP SCOPE LOOP ADDRESS 

012737 

047156 

0011*0 

MOV 

#TEST36,$LPERR 

;SETUP ERROR LOOP ADDRESS 




TEST36: 



112737 

000036 

001102 

MOVB 

#36.STSTNM 

.-MOVE #36 TO TEST NUMBER 

012706 

001100 


MOV 

#STACK,SP 

.‘LOAD THE STACK POINTER 

012737 

000012 

001176 

NOV 

#10., STINES 

;;D0 10. ITERATIONS 



SEQ 0129 
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M 10 


047176 

047204 

047210 

047216 

047224 

047232 

047236 

047244 

047252 

047260 

047266 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 

113760 

013737 

013737 


047274 012760 


047302 

047310 


047312 

047316 

047324 

047332 

047336 

047344 

047352 

047360 

047366 

047370 

047376 

047404 

047412 

047414 

047420 


047422 

047430 

047436 


047444 

047450 

047456 

047462 

047470 

047476 

047504 

047512 


032760 

001774 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104032 

005137 

000240 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 


.CLEAR ATTENTION BITS FOR BOTH PORTS 


001224 

000010 

M0V8 

000012 


CLR 

000011 

000000 

MOV 

000013 

000000 

MOV 

001226 

000010 

M0V8 

000012 


CLR 

000011 

000000 

MOV 

000013 

000000 

MOV 

001224 

000010 

M0V8 

001224 

001240 

MOV 

001224 

001242 

NOV 



;D0 A OFFSET 

000015 

000000 

MOV 



.-WAIT FOR DR 

000200 

000012 

BIT 


PORTA.RMCS2(R0) 
RNDStRO) 
fll.RNCSKRO) 
#13,RNCS1 (RO) 
PORTS, RMCS2(R0) 
RNDSIRO) 
fll.RNCSKRO) 
#13.RNCS1 (RO) 
PORTA, RNCS2(R0) 


SELECT PORT #A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


SELECT PORT #8 

SEIZE THE DRIVE THROUGH PORT ’B’ 

ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
... .-SELECT PORT A 
PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTA, SEIZPT .-•SEIZED’ PORT ADDRESS 


f15,RNCS1 (RO) .-ISSUE A OFFSET INSTRUCTION THROUGH PORT A 


BEQ 


#DRY,RMDS<RO> 

.-6 


.-WAIT FOR DRIVE TO FINISH 
;BR IF NOT FINISHED 


.-CONFIRM THAT ATTENTION .S SET FOR PORT A 


001250 


CLR 

000012 

001126 

MOV 

000012 

001122 

MOV 

001122 


ADD 

100000 

001124 

MOV 

001126 

001164 

MOV 

077777 

001164 

BIC 

001124 

001164 

CMP 

BEQ 

001126 

001174 

MOV 

100000 

001174 

BIC 

001174 

001124 

BIS 

EMT 

001250 


COM 


64$: 

NOP 


CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RFIDS (RO).SBDDAT ;GET CONTENTS OF RMDS 
fRMDS.SBDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 

.-ADD RH/RM BASE ADDRESS 

.-WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO ’$TMPO’ 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
.-COPY ’BAD DATA* 

.-CLEAR THE MASKED BITS 
.••OR’ WITH GOOD DATA FOR TYPEOUT 


RO.SBDADR 
fATA.SGDDAT 
SBDDAT.STNPO 
fCATA.STNPO 
S6DDAT.STNP0 
64$ 

SBDDAT.$TMP4 

#ATA,STNP4 

STMP4.SGDDAT 

32 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


001224 

001224 

000013 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 


000010 

001240 

000000 


001122 

001124 

000010 

001170 

001170 

001164 


.-RELEASE THE DRIVE FROM PORT A 

H0V8 PORTA, RMCS2CR0) ;SELECT PORT A 

MOV PORTA, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMCS1(R0) .-ISSUE RELEASE THROUGH PORT A 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR .‘CLEAR THE 'RELEASE ERROR * INDICATOR 

MOV fRMDS.SBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 

ADD RO.SBDADR .ADD THE I/O BASE ADDRESS 

MOV #M0L!PGMIDPR!DRy1w,$GDDAT .-COMPARISON CONSTANT 

MOVB PORTA, RMCS2(R0) .-SELECT PORT A. 

MOV RMDS(R0).$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
bic #pip.'url!om,$tmp2 .-CLEAR DONT CARES 
MOV STMP2.STMP0 .-COPY IT INTO ’STMPO' 


i 
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A 10 


047520 

047526 

047534 

047542 

047550 

047556 

047564 

047572 

047574 

047600 

047602 

047604 

047610 

047616 

047624 

047632 

047636 

047640 

047646 

047654 

047662 

047666 

047670 

047676 

047704 

047712 

047714 

047722 

047730 

047736 

047740 

047742 

047750 

047756 

047764 

047766 

047770 

047772 

050000 


050006 

m 

050026 

050032 

050036 

050044 

IS 

° 5^76 

50104 

50106 

050112 


042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001012 

012737 

012760 

012760 

104026 

013737 

013737 

023737 

001401 

104007 

013737 

013737 

023737 

001401 

104007 

000240 

113760 

013737 


005037 

m 

)5$37 
>13737 


V 

* 



100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


047770 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 

177777 

000011 

000013 

001170 

001224 

001124 


001172 

001226 

001124 


001226 

001226 


001250 

000012 

000012 

001122 

001124 

001126 

077777 

001124 

001126 

100000 

001174 

001250 


001164 


BIC 

OOOOIO 


M0V8 

001172 


MOV 

001172 


BIC 

001166 


MOV 

001166 


BIC 

001166 


CMP 

BNE 

TST 

BNE 

EMT 

JMP 

001126 

66$: 

MOV 

001240 


MOV 

OOOOIO 


M0V8 

TST 

BEQ 

001240 


MOV 

001126 


MOV 

OOOOIO 


MOVB 

TST 

BNE 

001254 

67$: 

MOV 

000000 


MOV 

000000 


MOV 

EMT 

001126 

68$: 

MOV 

001240 


MOV 

001126 


CMP 

BEO 

EMT 

001126 

69$: 

MOV 

001240 


MOV 

001126 


CMP 

BEO 

EMT 


70$: 

NOP 

OOOOIO 


MOVB 

001240 


MOV 


fATA'.VV, STMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTB .RMCS2 (RO) .'SELECT PORT B. 

RMDS(60),$TMP3 *GET THE DRIVE STATUS REGISTER FROM PORT B. 
fPIP!WRL!OM.$TMP$ .'CLEAR DONT CARFS 


*TMP3,$TMP1 
#ATA!W,$TMP1 
STMPO, STMP1 
66 $ 

STMPO 

68 $ 

46 

70$ 

$TMP2.$8DDAT 
PORTS. PTNBR 
PORTS. RMCS2(R0) 
$TMPO 
67$ 

PORTA, PTNBR 
$TMP3,$BDDAT 
PORTA.RMCS2CR0) 
$TMP1 
68 $ 

#-1 .RELERR 
m.RMCSKRO) 
#13,RMCS1 (RO) 

26 

$TMP2.$BDDAT 

PORTA.PTNBR 

$GDDAT,$6DDAT 

69$ 

7 

$TMP3,$BDDAT 
PORTB. PTNBR 
$6DDAT,$8DDAT 

70$ 

7 


COPY IT INTO *$TMP1 1 

Clear port dependent bits from the copy 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEI2ING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
CPI Ff T pf®T k 

SEE IF STATUS'EQ ZERO FROM PORT B. 

Bn | F not 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

SEE IF READ OK FROM PORT B. 

BR IF OK 


PORTB, RMCS2(R0) ;SELECT PORT B 

PORTB. PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 


.-CONFIRM THAT ATTENTION IS NOT SET FOR PORT B 


001126 

001122 


001164 

001164 

001164 

001174 
001 174 
001124 


71$: 


CLR 

MOV 

MOV 

ADD 

CLR 

MOV 

BIC 

CMP 

BEQ 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 


CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$8DDAT ;GET CONTENTS OF RMDS 
«RMDS.$b6aDR ;F0fa REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.•MOVE REGISTER CONTENTS TO '$TMPO' 
.•SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
;COPY 'BAD DATA* 

.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 


RO.SBDADR 
S6DDAT 
SBDDAT. STMPO 
#*CATA, STMPO 
SGDDAT, STMPO 
71$ 

$8DDAT.$TMP4 

#ATA.JTMP4 

$TMP47*GDDAT 

32 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 
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SEQ 0131 


0501 14 000004 


SCOPE 


.LOOP ? 


050116 

050116 

050122 

050124 

050126 

050132 

050140 

050146 

050154 

050154 

050162 

050166 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


TEST 37 


SET ATTENTION '8* BY COWHAND TEST 


TEST THE OPERATION OF THE PORT A AND PORT B ATTENTION BITS AFTER A 
COMMAND. 

A. ISSUE A RECALIBRATE COMMAND THROUGH PORT ’S'. 

B. WAIT FOR THE RECALIBRATE COMMAND TO COMPLETE ('DRY' TO BECOME 
•V). VERIFY THAT THE ATTENTION BIT FOR PORT 'B* IS SET AND 
THAT THE ATTENTION BIT FOR PORT 'A' IS NOT SET. 

C. RELEASE THE DRIVE THROUGH PORT ’S'. VERIFY THAT THE DRIVE RETURNED 
TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


001300 


003062 

177777 

050154 

050154 

000037 

001100 

000012 


TST37: 


001300 

001106 

001110 

001102 

001176 


TEST37: 


TST 

KY8CTL 

.-PERFORMING ONLY SINGLE TEST ? 

BEQ 

2$ 

;8R IF NOT 

BPL 

IS 

;8R IF JUST ENTERED TEST 

JMP 

EXEC 

.-RETURN & GET NEXT TEST NUMBER 

MOV 

#-1 .KYBCTL 

.-SET SINGLE TEST INDICATOR 

MOV 

#TES737.$LPADR 

.-SETUP SCOPE LOOP ADDRESS 

MOV 

#TEST37,$LPERR 

.’SETUP ERROR LOOP ADDRESS 

MOVB 

#37, STSTNM 

.-MOVE #37 TO TEST NUMBER 

MOV 

#STACK.SP 

.-LOAD THE STACK POINTER 

MOV 

#10. .iTIMES 

;;D0 10. ITERATIONS 


.CLEAR ATTENTION BITS FOR BOTH PORTS 


050174 

050202 

050206 

050214 

050222 

050230 

050234 

050242 

050250 

050256 

050264 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 

113 7 6Q 

013737 

013737 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

« 

001226 

001226 


000010 

000000 

000000 

C00010 

000000 
000000 
000010 
001 2*0 
001242 


050300 032760 
050306 001774 


MOVB 

CLR 

MOV 

MOV 

MOVB 

CLR 

MOV 

MOV 

MOVB 

MOV 

MOV 


PORTA, RMCS2(R0) 

RMDS(RO) 

#11 .RMCS1 (RO) 

#13,RMCS1 (RO) 

PORTS, RMCS2(R0) .SELECT PORT #B 

RMDS(ftO) .-SEIZE THE DRIVE THROUGH PORT ’B* 

#11 .RMCS1 (RO) .ISSUE DRIVE CLEAR 

#13,RMCS1 (RO) .-RELEASE THE DRIVE 

PORTB,RNCS2(R0) ;SELECT PORT B 

PORTB.PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
PORTB.SEIZPT .-’SEIZED* PORT ADDRESS 


SELECT PORT #A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


050272 012760 000015 000000 


000200 000012 


;D0 A OFFSET THROUGH PORT B 

MOV #15,RMCS1 (RO) 

.-WAIT FOR DRIVE TO FINISH 

BIT #DRY,RHDS(RO) 

BEO .-6 


.-ISSUE A OFFSET INSTRUCTION THROUGH PORT B 


.-WAIT FOR DRIVE TO FINISH 
;BR IF NOT FINISHED 


J 
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SEQ 0132 


.■CONFIRM THAT ATTENTION IS SET FOR PORT 3 


050310 

050314 

050322 

050330 

050334 

050342 

050350 

050356 

050364 

050366 

050374 

050402 

050410 

050412 

050416 


005037 

m 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104032 

005137 

000240 


001250 


CLR 

CKERR 

000012 

00HZ6 

MOV 

RMDS(RO) .SBDDAT 

000012 

00,122 

MOV 

fRMDS.SBDADR ;l 

001122 


ADD 

RO.SBDADR 

100000 

001124 

MOV 

#ATA, SGDDAT ;U 

001126 

001164 

MOV 

SBDDAT, STMPO 

077777 

001164 

BIC 

JTCATA, STMPO .* 

001124 

001164 

CMP 

SGDDAT, STMPO 



BEO 

64$ 

001126 

001174 

NOV 

SBDDAT, STMP4 

100000 

001174 

BIC 

AATA.STNP4 
STMP4, SGDDAT 

001174 

001124 

BIS 



EMT 

32 

001250 


COM 

CKERR 


64$: 

NOP 



.‘CLEAR THE 'CHECK ERROR' INDICATOR 
;6ET CONTENTS OF RNDS 
ORN REGISTER ADDRESS OF ERROR MESSAGE 
.•ADD RH/RM BASE ADDRESS 
4AT RE6ISTER SHOULD BE 
.‘MOVE REGISTER CONTENTS TO 'STMPO* 

5AVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
.‘COPY 'BAD DATA' 

.‘CLEAR THE MASKED BITS 
; 'OR' WITH GOOD DATA FOR TYPEOUT 

.•SET THE REGISTER COMPARE ERROR INDICATOR 


.•RELEASE THE DRIVE FROM PORT B 


050420 113760 
050426 013737 
050434 012760 


001226 000010 
001226 001240 
000013 000000 


050442 

005037 

001254 



CLR 

050446 

012737 

000012 

001122 


MOV 

050454 

060037 

001122 



ADD 

050460 

012737 

011700 

001124 


MOV 

050466 

113760 

001224 

000010 


MOVB 

050474 

016037 

000012 

001170 


MOV 

050502 

042737 

024001 

001170 


BIC 

050510 

013737 

001170 

001164 


MOV 

050516 

042737 

100100 

001164 


BIC 

050524 

113760 

001226 

000010 


MOVB 

050532 

016037 

000012 

001172 


MOV 

050540 

042737 

024001 

001172 


BIC 

050546 

013737 

001172 

001166 


MOV 

050554 

042737 

100100 

001166 


BIC 

050562 

023737 

001164 

001166 


CMP 

050570 

001006 




BNE 

050572 

005737 

001164 



TST 

050576 

001045 




BNE 

05060° 

104046 




EMT 

050602 

000137 

050766 



JMP 

050606 

013737 

001170 

001126 

66$: 

MOV 

050614 

013737 

001226 

001240 


NOV 

050622 

050630 

113760 

001226 

000010 


MOVB 

005737 

001164 



TST 

050634 

001414 




BED 

050636 

050644 

811 $ 

001224 

001240 


MOV 

001172 

001126 


MOV 

050652 

113760 

001224 

000010 


MOVB 

050660 

005737 

001166 



TST 

050664 

001012 




BNE 

050666 

012737 

177777 

001254 

67$: 

MOV 


MOVB P0RTB.RHCS2(R0) .‘SELECT PORT B 

MOV PORTS, PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMCS1(R0> .‘ISSUE RELEASE THROUGH PORT B 

.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

RELERR .‘CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RMDS,S6DADR .‘FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR .ADD THE I/O BASE ADDRESS 

#MOL J PGM ! DPR ! DRY ! V V , JGDDAT .‘COMPARISON CONSTANT 
PORTA, RMCS2CR0) .‘SELECT PORT A. 

RMDS(RO) .STNP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRL!0N,STMP2 .‘CLEAR DONT CARES 

STMP2, STMPO .‘COPY IT INTO 'STMPO' 
fATA.'VV, STMPO .‘CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2IR0) .‘SELECT PORT B. 

RMDS(RO) -STMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIPiWRL!0M,STMP3 ; CLEAR DONT CARES 


STMP3.STMP1 
fATA.'W.STMPI 
STMPO, STNP1 
66S 
STMPO 
68S 
46 
70S 

STMP2.SBDDAT 
PORTS, PTNBR 
PORTS, RMCS2(R0) 
STMPO 
67S 

PORTA. PTN8R 

STMP3.S8DDAT 

PORTA, RMCS2IR0) 

STMP1 

68S 

#- 1 .RELERR 


COPY IT INTO 'STMP1 
CLEAR PORT DEPENDENT SITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
OP IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZIN6 PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZIN6 PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS ED ZERO FROM PORT 8. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 


j 


i 



SEO 0133 


UR ^A0 

T37 


1309 

1318 

1319 

1320 


1334 

1335 
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050674 

012760 

oooon 

000000 


MOV 

fll.RMCSKRO) 

.•CLEAR THE DRIVE 

050702 

012760 

OC0O13 

000000 


MOV 

#13,RMCS1 (ROI 

.•RELEASE THE DRIVE 

050710 

104026 




EMT 

26 


050712 

013737 

001170 

001126 

68S: 

MOV 

STMP2.S8DDAT 

.LOOK FOR BIT FAILURES WHEN RMDS READ 

050720 

013737 

001224 

001240 


MOV 

PORTA. PTNBR 

.CHANGE PORT NUMBER 

050726 

023737 

001124 

001126 


CMP 

$GDDAT .S8DDAT 

.ALL *ITS OK ? 

050734 

001401 




8E0 

69$ 

;8R IF OK FROM PORT A. 

050736 

104007 




EMT 

7 


050740 

013737 

001172 

001126 

69$: 

MOV 

$TMP3.$8DDAT 

.•CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

050746 

013737 

001226 

001240 


MOV 

PORTB. PTNBR 

.‘CHANGE PORT NUMBER 

050754 

023737 

001124 

001126 


CMP 

$GDDAT.$8DDAT 

;SEE IF READ OK FROM PORT B. 

050762 

001401 




BEO 

70$ 

;BR IF OK 

050764 

104007 




EMT 

7 


050766 

000240 



70$: 

NOP 



050770 

113760 

001224 

000010 


MOVB 

PORTA, RHCS2(R0) 

.•SELECT PORT A 

050776 

013737 

001224 

001240 


MOV 

PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 





.•CONFIRM THAT 

ATTENTION IS NOT 

SET FOR PORT A 

051004 

005037 

001250 



CLR 

CKERR 

.•CLEAR THE 'CHECK ERROR' INDICATOR 

051010 

016037 

000012 

001126 


MOV 

RMDS (RO) ,$BDDAT 

.’GET CONTENTS OF RMDS 

051016 

012737 

000012 

001122 


MOV 

#RMDS,$6DADR ; 

FORM REGISTER ADDRESS OF ERROR MESSAGE 

051024 

060037 

001122 



ADD 

R0.S8DADR 

.ADD RH/RM BASE ADDRESS 

051030 

005037 

001124 



CLR 

$GDDAT 

;WHAT REGISTER SHOULD BE 

051034 

013737 

001126 

001164 


MOV 

$8DDAT,$TMP0 

.-MOVE REGISTER CONTENTS TO '$TMPO' 

051042 

042737 

077777 

001164 


BIC 

# A CATA,$TMPO ; 

SAVE SPECIFIED BITS 

051050 

023737 

001124 

001164 


CMP 

SGDDAT.STMPO 

.-COMPARE THE BITS 

051056 

001414 




BEQ 

71$ 

;BR IF OK 

051060 

013737 

001126 

001174 


MOV 

$8DDAT,$TMP4 

.-COPY 'BAD DATA’ 

051066 

042737 

100000 

001174 


BIC 

#ATA, $TMP4 

.•CLEAR THE MASKED BITS 

051074 

053737 

001174 

001124 


BIS 

$TMP4.$GDDAT 

; 'OR' WITH GOOD DATA FOR TYPEOUT 

051102 

104032 




EMT 

32 


051104 

005137 

001250 



COM 

CKERR 

.‘SET THE REGISTER COMPARE ERROR INDICATOR 

051110 

000240 



71$: 

NOP 



051112 

000004 




SCOPE 


.•LOOP ? 


•VERIFY THAT A CHANGE IN UNIT READY SETS THE ATTENTION 

• FOR BOTH PORTS. 

•THIS FUNCTION IS PERFORMED DURING THE SET VOLUME VALID TEST. 

* 

;*************************************************************** 


;*ftt****« **************************** **************** *********** 

•VERIFY THAT ATTENTION SETS WHEN THE DRIVE SWITCHES AFTER 
•BEING RELEASED. 

•THIS IS PERFORMED DURING THE "SET PORT REQUEST TEST" 


SEQ 0134 


E 11 
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051114 

051114 

051120 

051122 

051124 

051130 

051136 

05 1 144 

051152 

051152 

051160 

051164 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


001300 


003062 

177777 

051152 

051152 

000040 

001100 

000012 


001300 

001106 

001110 

001102 

001176 


TEST 40 PORT 'A' SET VOLUME VALID TEST 

VERIFY THAT VOllUE VALID CAN BE SET FOR THE PORT UNDER TEST. 

A. WITH PORT ’A* SELECTED. RESET AND SET 'MUR*' IN RMMR1. 
USING DIAGNOSTIC MODE. VERIFY THAT THE DRIVE 

IS SEIZED AND THAT 'VOLUME VALID" IS RESET AND 
ATTENTION IS SET. 

B. ISSUE A DRIVE CLEAR COMMAND AND A READ IN PRESET 
COMMAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 

VERIFY THAT ATTENTION IS RESET AND THAT VOLUME VALID 
IS SET. 

C. RELEASE THE DRIVE FROM PORT ’A* AND SELECT THE DRIVE FOR 
PORT 'B'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUME VALID IS STIL RESET. 

D. ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO 
PORT 'B' THEN RELEASE PORT *B\ 


TSHO: 


TEST40: 


H0V8 

KOV 

MOV 


KY8CTL 

2 $ 

If 

EXEC 

#-1 .KYBCTL 

#TEST40.$LPADR 

#TEST40.SLPERR 

#40.STSTNM 
#STACK,SP 
#10.. STINES 


.•PERFORMING ONLY SINGLE TEST ? 
*8R IF NOT 

!*BR IF JUST ENTERED TEST 
.•RETURN ft GET NEXT TEST NUMBER 
;SET SINGLE TEST INDICATOR 
.‘SETUP SCOPE LOOP ADDRESS 
.‘SETUP ERROR LOOP ADDRESS 

.•MOVE #40 TO TEST NLMBER 
.•LOAD THE STACK POINTER 
; ; DO 10. ITERATIONS 


051172 

051200 

051206 

051214 

051222 

051230 


051236 

051242 

051250 

051256 

051262 

051270 

051276 

051304 


113760 

013737 

012760 

013737 

012760 

012760 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 


CO! 224 

001224 

000001 

001226 

001001 

000000 


001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 


000010 

001242 

000024 

001244 

000024 

000024 


001126 

001122 

001124 

001164 

001164 

001164 


.SEIZE PORT A BY WRITING THE MAINTENANCE REGISTER. RMMR1. SET 
.-AND RESET 'MUR" TO CAUSE VOLUME VALID TO RESET AND ATTENTION TO SET. 

.SEIZE THE DRIVE THROUGH PORT A 

H0V8 PORTA, RMCS2CR0) ;SELECT PORT A 

MOV PORTA.SEIZPT .-STORE SEIZING PORT’S ADDRESS 

MOV #DMD,RMMR1(R0) .-WRITE DMD INTO RMHR1 

MOV P0RT6.0PPRT : 'OPPOSITE' PORT ADDRESS 

MOV #DM0!MUR.RHHR1(r6) ;SET UNIT READY 

MOV #0,RHMR1(R0> .-RESET DIAGNOSTIC MODE 

; VERIFY THAT ATA « 1,W = 0 FOR PORT A 


CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0),$8DDAT ;6ET CONTENTS OF RMDS 
#RMDS,S8DADR ;FOkn REGISTER ADDRESS OF ERROR MESSAGE 
RO,f8DA0R ;ADD RH/RM BASE ADDRESS 

#AtA.fGDDAT ;WHAT REGISTER SHOULD BE ^ t# 

S8DDAT, STMPO .‘MOVE RE6ISTER CONTENTS TO 'STMPO 

#*CATA.STMPO .-SAVE SPECIFIED BITS 
SGDDAT, STMPO .COMPARE THE BITS 


SEQ 0135 
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PORT 'A* SET VOLUME VALID TEST 


f 11 


051312 

051314 

051322 

051330 

051336 

051340 

051344 

051346 

051352 

051360 

051366 

051372 

051376 

051404 

051412 

051420 

051422 

051430 

051436 

051444 

051446 

051452 


001414 

013737 

042737 

053737 

104064 

005137 

000240 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104065 

005137 

000240 


001126 

100000 

001174 

001250 

001250 

000012 

000012 

001122 

001124 

ooir 

1776 
001124 

001126 

000100 

001174 

001250 


001174 


BEQ 

MOV 

001174 


BIC 

001124 


BIS 


66S: 

EMT 

COM 

NOP 

001126 


CLR 

MOV 

001122 


MOV 

001164 


ADD 

CLR 

MOV 

001164 


BIC 

001164 


CMP 

001174 


BEQ 

MOV 

001174 


BIC 

001124 


BIS 


68S: 

EMT 

COM 

NOP 


66S 

SBDDAT, STMP4 
#ATA f STNP4 
STMP4, SGDDAT 
64 

CKERR 


;BR IF OK 
;COPV ’BAD DATA* 

;CLEAR THE MASKED BITS 

.-•OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RMDS (RO), SBDDAT -GET CONTENTS OF RMDS 
fRMDS.SBDADR ;FO&M REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
;UHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO ’STMPO' 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;BR IF OK 
.-COPY ’BAD DATA’ 

.-CLEAR THE MASKED BITS 
; ’OR' WITH GOOD DATA FOR TYPEOUT 


RO.SBDADR 
SGDDAT 
SBDDAT. STMPO 
#*CVV, STMPO 
SGDDAT. STMPO 
68S 

SBDDAT .STMP4 
#VV.STMP4 
STMP4. SGDDAT 
65 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT A 


051454 

012760 

000011 

000000 

MOV 

051462 

012760 

000021 

000000 

MOV 





.-VERIFY ATA 

051470 

005037 

001250 


CLR 

051474 

016037 

000012 

001126 

MOV 

051502 

012737 

000012 

001122 

MOV 

051510 

060037 

001122 

001124 

ADD 

051514 

012737 

000100 

MOV 

051522 

013737 

001126 

001164 

NOV 

051530 

042737 

177677 

001164 

BIC 

C51536 

023737 

001124 

001164 

CMP 

051544 

001414 


001174 

BEQ 

051546 

013737 

001126 

MOV 

051554 

042737 

000100 

00117* 

BIC 

051562 

053737 

001174 

001124 

BIS 

051570 

104013 



EMT 

051572 

005137 

001250 


COM 

051576 

000240 



70S: NOP 

051600 

005037 

001250 


CLR 

051604 

016037 

000012 

001126 

MOV 

051612 

012737 

000012 

001122 

MOV 

051620 

060037 

012737 

001122 


ADD 

051624 

011700 

001124 

MOV 

051632 

013737 

001126 

001164 

MOV 

051640 

042737 

024007 

001164 

BIC 

051646 

023737 

001124 

001164 

CMP 

051654 

001414 


001174 

BEO 

051656 

m 

001126 

MOV 

051664 

051672 

153770 

001174 

BIC 

053737 

001174 

001124 

BIS 

051700 

104010 



EMT 

05 1702 

005137 

001250 


COM 


#11 .RMCS1 (RO) 
#21 .RMCS1 (RO) 


.-DRIVE CLEAR 
.-READ IN PRESET 


= 0 


AND VV = 1 FOR PORT A 

CKERR ; CLEAR THE ’CHECK ERROR* INDICATOR 

RMDS (RO) .SBDDAT ;GET CONTENTS OF RMDS 
#RMDS.SBDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR ;ADD RH/RM BASE ADDRESS 

#VV. SGDDAT ;WHAt REGISTER SHOULD BE 
SBDDAT. STMPO ;MOVE REGISTER CONTENTS TO 
#*CVV, STMPO ;SAVE SPECIFIED BITS 

.-COMPARE THE BITS 

;BR IF OK 
.-COPY ’BAD DATA' 

.-CLEAR THE MASKED BITS 
;'0R’ WITH GOOD DATA FOR TYPEOUT 


’STMPO’ 


SGDDAT. STMPO 
70S 

SBDDA1 .STMP4 
#VV,S TMP4 
STMP4, SGDDAT 
13 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS (RO). SBDDAT ;GET CONTENTS OF RMDS _ 

#RMDS.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR .-ADD RH/RM BASE ADDRESS 

#MOL i PGM! DPR ! DRYl VV, SGDDAT ;UHAT REGISTER SHOULD BE 
S8DDAT.STMP0 ;MOVE REGISTER CONTENTS TO ’STMPO* 

#*C153^70, STMPO .-SAVE SPECIFIED BITS 

.-COMPARE T»JE BITS 

;BR IF OK 
.-COPY 'BAD DATA' 

.-CLEAR THE MASKED BITS 
; 'OR* WITH GOOD DATA FOR TYPEOUT 


SGDDAT, STMPO 
72 S 

SBDDAT .STNP4 
#153770,STNP4 
STMP4, SGDDAT 
10 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 



SEO 0136 


, <sM0 RH80 DUAL PORT PT1 MACRO V04.00 15-.U»-82 07:09:22 PAGE 9-99 
'4C PORT ’A' SET VOLUME VALID TEST 


6 IT 


PORT 'A' SET VOLUME VALID TEST 
051706 000240 


72$: 


NOP 


.'RELEASE PORT A AND SELECT PORT 3 
.•VERIFY THAT ATA = 1 AND W - C FOR PORT B 

.RELEASE THE DRIVE FROM PORT A 


051710 

113760 

001224 

000010 


H0V8 

051716 

013737 

001224 

001240 


MOV 

051724 

012760 

000013 

000000 


MOV 





.-VERIFY 

THAT 

051732 

005037 

001254 



CLR 

051736 

012737 

000012 

001122 


MOV 

051744 

060037 

001122 



ADD 

051750 

012737 

011600 

001124 


MOV 

051756 

113760 

001224 

000010 


MOVB 

051764 

016037 

00001? 

001170 


MOV 

051772 

042737 

024001 

001170 


BIC 

052000 

013737 

001170 

001164 


MOV 

052006 

042737 

100100 

001164 


BIC 

052014 

113760 

001226 

000010 


MOVB 

052022 

016037 

000012 

001172 


MOV 

052030 

042737 

024001 

001172 


BIC 

052036 

013737 

001172 

001166 


MOV 

052044 

042737 

100100 

001166 


BIC 

0S2052 

023737 

001164 

001166 


CMP 

052060 

001006 




8NE 

052062 

005737 

001164 



TST 

052066 

001037 




8NE 

052070 

104046 




EMT 

052072 

000137 

052256 



JMP 

052076 

013737 

001170 

001126 

74$: 

MOV 

052104 

013737 

001226 

001240 


MOV 

052112 

113760 

001226 

000010 


MOVB 

052120 

005737 

U01164 



TST 

052124 

001414 




BEO 

052126 

013737 

001224 

001240 


MOV 

052134 

013737 

001172 

001126 


MOV 

052142 

113760 

001224 

ooooio 


MOVB 

052150 

005737 

001166 



TST 

052154 

001004 

012737 



75$: 

BNE 

052156 

177777 

001254 

MOV 

052164 

10402? 




EMT 

052166 

013737 

001170 

001126 

76$: 

MOV 

052174 

013737 

001224 

001240 


MOV 

052202 

052210 

02^737 

100100 

001124 

001126 

001126 


BIC 

CMP 

052216 

001401 

104Q07 




BEQ 

052220 




EMT 

052222 

013737 

001172 

001126 

77$: 

MOV 

052230 

013737 

001226 

001240 


MOV 

052236 

042737 

100100 

001126 


BIC 

052244 

023737 

001124 

001126 


CMP 

052252 

001401 

104007 




BEO 

052254 




EMT 


PORTA, RHCS2ER0) ; SELECT PORT A 

PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RMCS1(R0) .'ISSUE RELEASE THROUGH PORT A 


RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

#RHDS,$6DADR ;FORM THE ADDRESS OF RHOS FOR TYPEOUT 

R0.S8DADR ;ADD THE I/O BASE ADDRESS 

#MOL I PGM ! DPR ! DR Y , $GDDAT .’COMPARISON CONSTANT 
PORTA, RMCS2(R0) .-SELECT PORT A. 

RMDS(RO) ,$TMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A- 
#PIP.'WRL!0M,$TMP2 .-CLEAR DONT CARES 

$TMP2,$TMP0 .-COPY IT INTO 'STMPO' 

#ATAJ VV,$TMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 

P0RTB.RMCS2(R0) ;SELECT PORT B. 

RMD5(R0),$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL!OM,$TMPi .-CLEAR DONT CARES 


JTMP3.STMP1 
#ATA!VV,$TMP1 
$TMP0,$TMP1 
74$ 

$TMPO 

76$ 

46 

78$ 

$TMP2,$6DDAT 
PORTS, PTNBR 
PORTS, RMCS2(R0) 
$TMPO 
75$ 

PORTA, PTNBR 

$TMP3.$BDDAT 

PORTA, RMCS2(R0) 

$TMP1 

76$ 

f-1 .RELERR 
22 

$TMP2,$BDDAT 
PORTA, PTNBR 
#ATA!VV.$BDDAT 
$GDDAT,$8DDAT 
77$ 

7 

$TMP3,$BDDAT 
PORTB. PTNBR 
#ATA!VV.$BDDAT 
SGDDAT.WDDAT 
78$ 

7 


COPY IT INTO *$TMP1 ' 

CLEAR PORT DEPENDENT BITS FRUM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EO ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT B. 

BR IF OK 


CZRNHAu 

T40 


RM80 .cAc P #T PT 1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-1 OC 
PORT 'A' SE 1 VOLUME VALID TEST 


SEQ 0137 


052256 

052260 

052266 

052274 

052300 

052306 

052314 

052320 

052326 

052334 

052342 

0523 ^ 

052352 

052360 

052366 

052374 

052376 

052402 

052404 

052410 

052416 

052424 

052430 

052434 

052442 

052450 

052456 

052460 

052466 

052474 

052502 

052504 

052510 


052550 
052554 
7562 

p$4 
1602 
052610 
052616 
052624 
052632 
052640 


000240 



78S: 

NOP 

113760 

001226 

000010 


movb 

013737 

001226 

001240 


MOV 

005037 

001250 



CLR 

016037 

000012 

001126 


MOV 

012737 

000012 

001122 


MOV 

060037 

001122 



ADD 

012737 

100000 

001124 


MOV 

013737 

001126 

001165 


MOV 

042737 

077777 

001164 


BIC 

023737 

001124 

001164 


CMP 

001414 




BEQ 

013737 

001126 

001174 


MOV 

042737 

100000 

001174 


BIC 

053737 

001174 

001124 


BIS 

104064 




EMT 

005137 

001250 



COM 

000240 



79S: 

NOP 

005037 

001250 



CLR 

016037 

000012 

001126 


MOV 

012737 

000012 

001122 


MOV 

060037 

001122 



ADD 

005037 

001124 



CLR 

013737 

001126 

001164 


MOV 

042737 

177677 

001164 


BIC 

023737 

001124 

001164 


CMP 

001414 




6E0 

013737 

001126 

001174 


MOV 

042737 

000100 

001174 


BIC 

053737 

00 '» 1 74 

001124 


BIS 

104065 




EMT 

005137 

001250 



COM 

000240 



81$: 

NOP 




.-ISSUE 

A DRIVI 




.-THEN RELEASE 

012760 

000011 

000000 


MOV 

012760 

000021 

000000 


MOV 




; RELEASE THE 

113760 

001226 

000010 


MOVB 

013737 

001226 

001240 


NOV 

012760 

000013 

OOOCOO 


NOV 




.VERIFY 

THAT 

005037 

001254 



CLR 

012737 

000012 

001122 


MOV 

060037 

001122 



ADD 

012737 

011600 

001124 


MOV 


PORTS, RMCS2(R0) ;SELECT PORT B 

PORTB.PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
CKERR .'CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,S 8 DDAT ;GET CONTENTS OF RMDS 
#R*1DS,$8DADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO '$TMPO' 

.•SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 

.•CLEAR THE MASKED BITS 
; 'OR' WITH GOOD DATA FOR TYPEOUT 


RO.SSDADR 
#ATA. SGDDAT 
SBDDAT.STMPO 
#*CATA,$TNPO 
SGDDAT.STMPO 
79$ 

SBDDAT.STMP4 
#ATA,$TNP4 
STMP4, SGDDAT 
64 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .-CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(RO) .SBDDAT ;GET CONTENTS OF RMDS 
fRMDS.SBDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;UHAT REGISTER SHOULD BE 
;MOVE REGISTER CONTENTS TO '$TMPO* 
.-SAVE SPECIFIED BITS 
.•COMPARE THE 81 TS 
; 8 R IF OK 
.-COPY 'BAD DATA' 

.•CLEAR THE MASKED BITS 
;'0R' WITH GOOD DATA FOR TYPEOUT 


R0.S6DADR 
SGDDAT 
SBDDAT.STMPO 
(TCVV.STHPO 
SGDDAT.STMPO 
81S 

S8PDAT.STMP4 
m,$TMP4 
STMP4. SGDDAT 
65 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


A READ IN PRESET COMMAND TO PORT B, 


fll.RMCSKRO) 

#21,RMCS1(R0) 


.•DRIVE CLEAR 
.•READ IN PRESET 


113760 

016037 

m 

042737 

113760 

016037 


001224 

000012 

024001 

001170 

100100 

001226 

000012 


000010 

001170 

001170 

001164 

001164 

000010 

001172 


M0V8 

MOV 

BIC 

MOV 

BIC 

Hove 

MOV 


PORTS. RMCS2(R0) ;SELECT PORT 8 

PORTB.PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13.RMCS1(R0) .-ISSUE RELEASE THROUGH PORT B 


REIERR .CLEAR THE 'RELEASE ERROR ' INDICATOR 

fRNDS.SBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR ;ADD THE I/O BASE ADDREfS 

«MOL! PGM! DPR! DRY, SGDDAT .-COMPARISON CONSTANT 
PORTA, RHCS2(R0) .-SELECT PORT A. 

RMDS(RO) .STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRlI0M.$TMP2 .-CLEAR DONT CARES 

STMP2.STMP0 .-COPY IT INTO 'STMPO' 

#ATA!VV,STMPO .‘CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2CR0) .SELECT PORT B. 

RMDS(AO) .STMP3 .’GET THE DRIVE STATUS REGISTER FROM PORT B. 


L 


SEO 0138 


1ZRNHAQ RH80 dual port pti NACRO V04 
HO PORT ’A’ SET VOUflE VALID TEST 


0526**6 

052654 

0526^0 

052676 

052700 

052704 

052706 

052710 

052714 

052722 

052730 

052736 

052742 

052744 

052752 

052760 

052766 

052772 

052774 

053002 

053004 

053012 

053020 

053026 

053034 

053036 

053040 

053046 

053054 

053062 

053070 

053072 

053074 


w/Q 


5-.AN-S2 (7:09:22 PAGE 9-101 


1400 

1421 

1422 


042737 

024001 

001172 


BIC 

fPIPIWRL !0H,$TNP3 

013737 

001172 

001166 


NOV 

$TNP3.$TNP1 

042737 

100100 

001166 


BIC 

#ATA!W,$TRP1 

023737 

001164 

001166 


CNP 

$TNP0.$TNP1 

001006 




BNE 

83$ 

005737 

001164 



TST 

STNPO 

001037 




BNE 

85$ 

104046 




ENT 

46 

000137 

053074 



JHP 

87$ 

013737 

001170 

001126 

83S: 

NOV 

$TNP2.$6DDAT 

013737 

001226 

001240 


NOV 

PORTS. PTNBR 

113760 

001226 

000010 


N0V8 

PORTS. RNCS2(R0) 

005737 

001164 



TST 

$TNP0 

001414 




BEQ 

84$ 

013737 

001224 

001240 


NOV 

PORTA. PTN8R 

013737 

001172 

001126 


NOV 

$TNP3.$8DDAT 

113760 

001224 

000010 


NOVB 

PORTA. RNCS2(R0) 

005737 

001166 



TST 

$TNP1 

001004 




BNE 

85$ 

012737 

177777 

001254 

84$: 

NOV 

f-I.RELERR 

104022 




ENT 

22 

013737 

001170 

001126 

85$: 

NOV 

$TNP2,$BDDAT 

013737 

001224 

001240 


NOV 

PORTA. PTNBR 

042737 

100100 

001126 


BIC 

#ATA! VV.$8DDAT 

023737 

001124 

001126 


CNP 

SGDDAT.S6DDAT 

001401 




BEQ 

86$ 

104007 




ENT 

7 

013737 

001172 

001126 

86$: 

NOV 

$TNP3.S8DDAT 

013737 

001226 

001240 


NOV 

PORTB, PTNBR 

042737 

100100 

001126 


BIC 

#ATA! VV.S6DDAT 

023737 

001124 

001126 


CNP 

$GDDAT.SBDDAT 

001401 




BEQ 

87$ 

J04007 




ENT 

7 

000240 



87$: 

NOP 


000004 



50$: 

SCOPE 



; CLEAR DONT CARES 
COPY IT INTO '$TNP1' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SANE FROM BOTH PORTS 

BR IF NOT 

REGISTERS ARE THE SANE: ARE THEY ZERO ? 

8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR NESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FRON PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FRON PORT B. 

BR IF NOT 

SET 'RELEASE ERROR* INDICATOR 

LOOK FOR BIT FAILURES WHEN RNDS READ 
CHANGE PORT NUNBER 
DON'T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 

BR IF OK FRON PORT A. 

CHECK RNDS FOR BIT FAILURES - FRON PORT B. 

CHANGE PORT NUNBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FRON PORT B. 

BR IF OK 


TEST 4 ’ PORT '8' SET VOLUHE VALID TEST 

VERIFY THAT VOLUNE VALID CAN BE SET FOR THE PORT UNDER TEST. 

A. WITH PORT 'B' SELECTED. RESET AND SET 'NUR“ IN RNHR1. 
USING DIAGNOSTIC NODE. VERIFY THAT THE DRIVE 

IS SEIZED AND THAT ‘VOLUNE VALID" IS RESET AND 
ATTENTION IS SET. 

B. ISSUE A DRIVE CLEAR CONNAND AND A READ IN PRESET 
CONNAND TO THE DRIVE THAT WAS SEIZED IN STEP A. 

VERIFY THAT ATTENTION IS RESET AND THAT VOLUHE VALID 
IS SET. 


C. RELEASE THE DRIVE FRON PORT 'B' AND SELECT THE DRIVE FOR 
PORT 'A'. VERIFY THAT ATTENTION IS STIL SET AND THAT 
VOLUNE VALID IS STIL RESET. 

D. ISSUE A DRIVE CLEAR AND A READ IN PRESET CONNAND TO 



SEQ 0139 


CZRNM*G «H80 DUAL PORI PT 1 MACRO vC'4.00 15-JAN-32 07:09:22 PAGE 9-102 
HI PORT ’B” SET VOLUME VA«.1D TEST 


053100 
053100 
0531 OA 
053106 
053110 
0531 1 A 
05312c 
053130 
053136 
053136 
j 53144 
J53150 


005737 

001406 

10000c 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


001300 


003062 

177777 

053136 

053136 

000041 

001100 

000012 


001300 

001106 

001110 

001102 

001176 


PORT 'A* THEN RELEASE PORT 


TST41 : 


TEST41 : 


KYBCTL 

2$ 

1 $ 

EXEC 

#-1 .KYBCTL 
#TEST41 .SLPADR 
#TEST41 .SLPERR 

#41 .STSTNM 
#STACK,SP 
#10., STINES 


PERFORMING ONLY SINGLE TES. ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN t GET NEXT TEST NUNL'ER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SEiUP ERROR LOOP ADDRESS 

MOVE #41 TO TEST NUMBER 
LOAD THE STACK POINTER 
;D0 10. ITERATIONS 


053156 

053164 

053172 

053200 

053206 

053214 


053222 

053226 

053234 

053242 

053246 

053254 

053262 

053270 

053276 

053300 

053306 

053314 

053322 

053324 

0 °? | 

811144 

053352 

053356 

053362 

053370 

053376 

053404 

053406 

053414 

053422 

053430 


113760 

013737 

012760 

013737 

012760 

012760 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104064 

005137 

m 

m 

060037 

005037 

013737 

042737 

023737 

0C1414 

013737 

042737 

053737 

104065 


001226 

001226 

000001 

001224 

001001 

000000 


001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

000012 

000012 

001122 

001124 

001126 

177677 

001124 

001126 

000100 

001174 


0C0010 

001242 

000024 

001244 

000024 

000024 


001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


001126 

001122 


001164 

001164 

001164 

001174 

001174 

001124 


.-SEIZE PORT 8 BY WRITING THE MAINTENANCE REGISTER. RMMR1. SET 
.-AND RESET 'MUR** TO CAUSE VOLUME VALID TO RESET AND ATTENTION TO SET. 

.SEIZE THE DRIVE THROUGH PORT B 

HOVB PORTS. RMCS2CR0) .-SELECT PORT B 

MOV PORTB.SE I ZPT ; STORE SEIZING PORT'S ADDRESS 

MOV #DMD,RMMR1 (R0> : WRITE DMD INTO RMHR1 

MOV PORTA. OPPRT ;'OPPOSITE* PORT ADDRESS 

MOV #DMDJMUR,RMMR1(R0) .SET UNIT READY 

MOV #0,RNMR1(R0> .-RESET DIAGNOSTIC MODE 


.-VERIFY THAT 
CLR 


ATA * 1.W * 0 FOR PORT B 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) .SBDDAT ;GET CONTENTS OF RMDS 

#RMDS.S8DADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 

.I0.S8DADR ;ADD RH/RM BASE ADDRESS 

#ATA,SGDDAT ;WHAT REGISTER SHOULD BE 

SBDDAT, STMPO .‘MOVE REGISTER CONTENTS TO 'STMPO' 

#*CATA,STMPO ;SAVE SPECIFIED BITS 

SGDDAT, STMPO .-COMPARE THE BITS 

66S -BR IF OK 

SBDDAT, STMP4 -COPY 'BAD DATA' 

#ATA,STMP4 .-CLEAR THE MASKED BITS 

STMP4. SGDDAT ;'0R' WITH GOOD DATA FOR TYPEOUT 

64 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS (RO) .SBDDAT .-GET CONTENTS OF RMDS 
#RMDS.$BDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR .-ADD RH/RM BASE ADDRESS 

SGDDAT ,-WHAT REGISTER SHOULD BE „ 

SBDDAT, STMPO ;MOVE REGISTER CONTENTS TO 'STMPO' 

#*CVV,iTMPO .SAVE SPECIFIED BITS 
SGDDAT, STMPO .-COMPARE THE BITS 

SBDDAT, STMP4 -COP^'flAD DATA' 

STMpJIsGDDAT -’ORMIITH GOO^DATA^OR TYPEOUT 

65 



SEQ OHO 
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HI PORT '8' SET VOLUME VALID TEST 


053432 005137 001250 
053436 000240 


053440 012760 000011 000000 

053446 012760 000021 000000 


CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


053454 

053460 

053466 

053474 

053500 

053506 

053514 

053522 

053530 

053532 

053540 

053546 

053554 

053556 

053562 

053564 

053570 

053576 

053604 

053610 

053616 

053624 

053632 

053640 

053642 

053650 

053656 

053664 

053666 

053672 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104013 

005137 

000240 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104010 

005137 

000240 


053674 

053702 

053710 


053716 

053722 

053730 

053734 

053742 

053750 

053756 


001250 

000012 

000012 

001122 

000100 

001126 

177677 

001124 

001126 

000100 

001174 

001250 

001250 

000012 

000012 

001122 

011700 

001126 

024007 

001124 

001126 

153770 

001174 

001250 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

042737 


001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


001126 

001122 

001124 

001164 

001164 

001164 

001174 

001174 

001124 


001226 

001226 

000013 


001254 

000012 

001122 

011600 

001224 

000012 

024001 


000010 

001240 

000000 


001122 

001124 

000010 

001170 

001170 


; ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT B 
MOV fll.RMCSI (RO) .-DRIVE CLEAR 

MOV #21 .RMCS1 (RO) ; READ IN PRESET 


; VERIFY ATA 
CLR 


0 AND VV = 1 FOR PORT B 

CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(R0).S8DDAT ;GET CONTENTS OF RMDS 

#RMDS.SBDADR ;FOftM REGISTER ADDRESS OF ERROR MESSAGE 

R0.S8DADR .‘ADD RH/RM BASE ADDRESS 

#VV.$GDDAT .-UHAT REGISTER SHOULD BE 

SBDDAT.STMPO .-MOVE REGISTER CONTENTS TO 'STMPO' 

#*CVV, STMPO ;SAVE SPECIFIED BITS 

SGDDAT. STMPO .-COMPARE THE BITS 

70S ;BR IF OK 

SBDDAT.STMP4 .-COPY 'BAD DATA' 

#VV.STMP4 .-CLEAR THE MASKED BITS 

STMP4.SGDDAT ;'0R' WITH GOOD DATA FOR TYPEOUT 

13 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) .SBDDAT ;GET CONTENTS OF RMDS 

#RMDS.SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 

R0.S6DADR ;ADD RH/RM BASE ADDRESS 

#MOL ! PGM ! DPR i DRY ! VV, SGDDAT ;UHAT REGISTER SHOULD BE 

S8DDAT .STMPO .-MOVE REGISTER CONTENTS TO 'STMPO' 

#*C1 53*70. STMPO .-SAVE SPECIFIED BITS 

SGDDAT. STMPO .-COMPARE THE BITS 

72S ;BR IF OK 

SBDDAT .STMP4 .‘COPY 'BAD DATA' 

#1 53776. STMP4 .-CLEAR THE MASKED BITS 

STMP4. SGDDAT ;'0R' WITH GOOD DATA FOR TYPEOUT 

10 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


;RELEASE PORT B AND SELECT PORT A 
.-VERIFY THAT ATA = 1 AND VV = 0 FOR PORT A 

.-RELEASE THE DRIVE FROM PORT 8 


MOVB PORTB.RMCS2(R0) .-SELECT PORT B 

MOV PPRTB.PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13,RMCS1 (RO) .-ISSUE RELEASE THROUGH PORT B 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

MOV #RMDS,SBDADR ;FORH THE ADDRESS OF RMDS FOR TYPEOUT 

ADD RO.SBDADR .-ADD THE I/O BASE ADDRESS 

MOV #MOL! PGM! DPR! DRY. SGDDAT .-COMPARISON CONSTANT 

MOVB PORTA, RMCS2(R0) ,* SELECT PORT A. 

MOV RMDS(R0).STMP2 -GET THE DRIVE STATUS REGISTER FROM PORT A. 
bic #pip!wrl!om.stmp> .-CLEAR DONT CARES 
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SEQ 01 M 


053764 

053772 

054000 

054006 

054014 

054022 

054030 

054036 

054044 

054046 

054052 

054054 

054056 

054062 

054070 

054076 

054104 

054 1 10 

054112 

054120 

054126 

054134 

054140 

054142 

054150 

054152 

054160 

054166 

054174 

054202 

054204 

054206 

054214 

054222 

054230 

054236 

054240 

054242 

054244 

054252 

054260 

054264 

054272 

054300 

054304 

054312 

054320 

054326 

054334 

054336 

054344 


054362 

054366 

054370 

054374 


013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001037 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001004 

012737 

104022 

013737 

013737 

042737 

023737 

001401 

104^07 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

113760 

013737 

005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104064 

005137 

000240 

005037 

016037 


001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


054242 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 


001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 74$: 

001240 

000010 


001240 

001126 

000010 


177777 001254 75$: 


001170 

001224 

100100 

001124 


001172 

001226 

100100 

001124 


001224 

001224 

001250 

000012 

000012 

001122 

100000 

001126 

077777 

001124 

001126 

100000 

001174 

001250 

001250 

000012 


001126 76$: 
001240 
001126 
001126 


001126 77$: 
001240 
001126 
001126 


000010 

001240 

001126 

001122 

001124 
001 1 64 
001164 
001164 

001174 

001174 

001124 


001126 


MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOVB 

TST 

BEO 

MOV 

MOV 

MOVB 

TST 

BNE 

MOV 

EMT 

MOV 

MOV 

BIC 

CMP 

BEO 

EMT 

MOV 

MOV 

BIC 

CMP 

BEO 

EMT 

NOP 

MOVB 

MOV 

CLR 

MOV 

MOV 

ADD 

MOV 

MOV 

BIC 

CMP 

BEO 

MOV 

BIC 

BIS 

EMT 

COM 

NOP 

CLR 

MOV 


$TMP2,$TMP0 .‘COPY IT INTO 'STMPO' 

#ATA! VV.STMPO ; CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2(R0) .SELECT PORT B. 

RMDS(RO) ,$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP‘URL!0M.$TMP3 .‘CLEAR DGNT CARES 


$TNP3,$TMP1 

AATAIW.STMP1 

$TMP0.$TMP1 

74$ 

$TMPO 

76$ 

46 

78$ 

$TMP2,$BDDAT 

P0RTB.PTN8R 

P0RTB,RMCS2(R0) 

$TMP0 

75$ 

PORTA, PTNBR 

$TMP3.$BDDAT 

PORTA. RMCS2(R0) 

$TMP1 

76$ 

#-1 .RELERR 

22 

$TMP2,$BDDAT 
PORTA. PTNBR 
#ATA ! VV , $8DDAT 
$GDDAT,$BDDAT 
77$ 

7 

$THP3,$8DDAT 
PORTS, PTNBR 
#ATA!VV,$BDDAT 
$GDDAT,$BDDAT 

78$ 

7 


COPY IT INTO '$TMP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOUS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON'T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON'T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT B. 

BR IF OK 


PORTA, RMCS2(R0) .‘SELECT PORT A 

PORTA, PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

CKERR .‘CLEAR THE 'CHECK ERROR* INDICATOR 

RMDS(RO),$BDDAT .‘GET CONTENTS OF RMDS 

fRMDS.SBDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 

RO.SBDADR .‘ADD RH/RM BASE ADDRESS 

#AfA,£GDDAT .‘WHAT REGISTER SHOULD BE 

$6DDAT,$TMP0 .‘MOVE REGISTER CONTENTS TO ’STMPO’ 

# A CATA,$TMPO .‘SAVE SPECIFIED BITS 

$GDDAT.$TMPO .‘COMPARE THE BITS 

79$ ;BR IF OK 

$6DDAT,$TMP4 .‘COPY 'BAD DATA' 

#ATA.$fMP4 .‘CLEAR THE MASKED BITS „ „ 

$TMP4,$GDDAT ; 'OR* WITH GOOD DATA FOR TYPEOUT 
64 

CKERR 


;S£T THE REGISTER COMPARE ERROR INDICATOR 


CKERR ; CLEAR THE 'CHECK ERROR’ INDICATOR 

RHDS(RO) ,$BDDAT ;GET CONTENTS OF RMDS 
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SEO 014 t 


054402 

054410 

054414 

054420 

054426 

054434 

054442 

0^4444 

054452 

C54460 

054466 

054470 

054474 


054476 

054504 


054512 

054520 

054526 


054534 

054540 

054546 

054552 

054560 

054566 

054574 

054602 

054610 

054616 

054624 

054632 

054640 

054646 

054654 

05466? 

054664 

054670 

054672 

054674 

0>4700 

054706 

054714 

054722 

054726 

054730 

054736 

054744 

054752 

054756 

054760 


012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104065 

005137 

000240 


012760 

012760 


113760 

013737 

012760 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

*05737 

001037 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

001004 

012737 


000012 001122 
001122 
001124 

001126 001164 
177677 001164 
001124 001164 

001126 001174 
000100 001174 
001174 001124 

001250 


00001 1 
000021 


001224 

001224 

C00013 


001254 

000012 

001122 

011600 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


055060 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 


000000 

000000 


000010 

001240 

000000 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


#RMDS,SBDADR 

R0.J8DADR 

SGODAT 

SBDDAT.STMPO 
#*CVV, STMPO 
SGDDAT, STMPO 
81S 

$8DDAT,STMP4 
#W,STMP4 
STMP4, SGDDAT 
65 

CKERR 


.-FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
.-MOVE REGISTER CONTENTS TO ’ STMPO 1 
;SAVE SPECIFIED BITS 
; COMPARE THE BITS 
;8R IF OK 
.COPY ’BAD DATA’ 

.•CLEAR THE MASKED BITS 

.-’OR' WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


.ISSUE A DRIVE CLEAR AND A READ IN PRESET COMMAND TO PORT A. 

.-THEN RELEASE PORT A 

MOV #11.RMCS1(R0) .'DRIVE CLEAR 

MOV #21 RMCSKRO) .-READ IN PRESET 
.•RELEASE THE DRIVE FROM PORT A 

M0V8 PORTA, RMCS2CR0) ; SELECT PORT A 

MOV PORTA. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
MOV #13.RMCS1(R0) .-ISSUE RELEASE THROUGH PORT A 

; VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


177777 001254 


CLR 

MOV 

ADD 

MOV 

MOVB 

MOV 

BIC 

MOV 

BIC 

MOVB 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOVB 

TST 

BEQ 

MOV 

MOV 

MOVB 

TST 

BNE 

MOV 


RELERR .‘CLEAR THE ’RELEASE ERROR ’ INDICATOR 

#RMDS,SBDADR .'FORM THE ADDRESS OF RMDS FOR TYPEOUT 
R0.S8DADR ;ADD THE I/O BASE ADDRESS 

#MOL ! PGM ! DPR ! DR Y , SGDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2 (RO) .-SELECT PORT A. 

RMDS(RO) .STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP‘WRL!0M,STMP2 .-CLEAR DONT CARES 

STMP2.STMP0 .-COPY IT INTO ’$TMPO’ 

fATAJVV.STMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RMCS2(R0) .-SELECT PORT B. 

RMDS(RO) .STMPi :GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL!0M.STMP3 ; CLEAR DONT CARES 


STMP3, STMPI 

#ATA!VV, STMPI 

STMPO, STMPI 

83S 

STMPO 

85S 

46 

87S 

STMP2.S6DDAT 
PORTS, PTNBR 
PORTS, RMCS2(R0) 
STMPO 
84S 

P0RTA.PTN8R 

STMP3.SBDDAT 

PORTA, RMCS2<R0) 

STMPI 

85S 

#-1 .RELERR 


COPY IT INTO ’STMPI’ 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
’BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT 9. 

BR IF NUT 

SET ’RELEASE ERROR’ INDICATOR 


sea 0H3 
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054766 

054770 

054776 

055004 

055012 

055020 

055022 

055024 

055032 

055040 

055046 

055054 

055056 

055060 


104022 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 


055062 000004 


001170 

001224 

100100 

001124 


001172 
001226 
100100 
001 i 24 


001126 85S: 
001240 
001126 
001126 


001126 86$: 
001240 
001126 
001126 


22 

STMP2.SBDDAT 
PORTA.PTNBR 
f ATA ! VV ,$8DDAT 
$GDDAT,$8DDAT 
86 $ 

7 

STMP3.SBDDAT 
PORTS. PTNBR 
#ATA! VV.SBDDAT 
$GDDAT,$8DDAT 
87$ 

7 


LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
DON’T CHECK ATTN BIT OR VV BIT 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

DON’T CHECK ATTN BIT OR VV BIT 

SEE IF READ OK FROM PORT B. 

BR IF OK 


50$: SCOPE 


055064 




TST42: 


055064 

005737 

001300 


TST 

KYBCTL 

055070 

001406 



BEO 

2$ 

05507? 

100002 



BPL 

1$ 

055074 

000137 

003062 


JMP 

EXEC 

055100 

012737 

177777 

001300 

1$: MOV 

#-1 .KYBCTL 

055106 

012737 

055122 

001106 

2$: MOV 

#TEST42.$LPADR 

055114 

012737 

055122 

001110 

MOV 

#T£ST42,$LPERR 

055122 




TEST42: 


055122 

112737 

000042 

001102 

MOVB 

#42.$TSTNM 

055130 

012706 

001100 


MOV 

#STACK,SP 

055134 

012737 

000002 

001176 

MOV 

#2. ,$TIM£S 


•************•*•****•*••*********•*•******•**•*******•*•******•* 

•TEST 42 TEST PORT ’A’ TIMEOUT DOES NOT RESET DRIVE 

•VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

* A. SEIZE THE DRIVE THROUGH PORT ’A’ BY WRITING O’S INTO RMDS. 

• B. WRITE I’S INTO RMER1 THROUGH PORT ’A’ TO FORCE AN ATTENTION. 

* C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE DRIVE RETURNED TO 

• NEUTRAL: THAT ATTENTION IS SET FOR PORT ’A* AND NOT SET FOR 

• PORT ’8*; AND THAT BOTH PORTS SEE 1’S IN THE ERROR REGISTER. 

* 

•A************************************************************** 

ST42: 

TST KYBCTL .-PERFORMING ONLY SINGLE TEST ? 

BEQ 2$ ;BR IF NOT 

BPL 1$ ;BR IF JUST ENTERED TEST 

JMP EXEC .-RETURN 8 GET NEXT TEST NUMBER 

$: MOV #-1 .KYBCTL ;SET SINGLE TEST INDICATOR 

$: MOV #TEST42.$LPADR .-SETUP SCOPE LOOP ADDRESS 

MOV #T£ST42,$LPERR .-SETUP ERROR LOOP ADDRESS 

EST42: 

MOVB #42.$TSTNM .-MOVE #42 TO TEST NUMBER 

MOV #STACK.SP .-LOAD THE STACK POINTER 

MOV #2. ,$TIMES ;;D0 2. ITERATIONS 


055142 

055150 

055154 

055162 

055170 

055176 

055202 

055210 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


000010 

000000 

000000 

000010 

000000 

000000 


.-CLEAR ATTENTION BITS FOR BOTH PORTS 

MOVB PORTA, RMCS2(R0) .‘SELECT PORT #A 

CLR RMDS(RO) .‘SEIZE THE DRIVE 

MOV fll.RMCSKRO) .‘ISSUE DRIVE CLEAR 

MOV #13,RMCS1<R0> .-RELEASE THE DRIVE 

MOVB PORffl,RMCS2(RO) .‘SELECT PORT #8 

CLR RMDS(ftO) .-SEIZE THE DRIVE THROUGH PORT ’B’ 

10V #11 .RMCS1 (RO) .-ISSUE DRIVE CLEAR 

MOV #13,RMCS1(R0> .-RELEASE THE DRIVE 


B 12 
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.SEIZE THE DRIVE THROUGH PORT A 


055232 005060 000012 


055244 012760 177777 


055252 

055256 

055264 

055272 


055300 

055304 

055306 

055312 

055314 

055316 

055316 

055324 


055332 

055336 

055344 

055352 

055356 

055364 

055372 

055400 

055406 

055410 

055<*16 

055424 

055432 

055434 

055440 


055442 

055446 

055454 

055462 

055466 

055474 

055502 

055504 


005037 

012 7 37 

113760 

013737 


005760 

001004 

005737 

001372 

104036 

113760 

013737 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104023 

005137 

000240 


001256 

003720 

001226 

001226 


000012 

001260 


001224 

001224 


001250 

000012 

000012 

001122 

040000 

001126 

137777 

001124 

001126 

040000 

001174 

001250 


s m 

001403 

104010 


000010 

MOVB 

PORTA. RMCS2(R0) 

.-SELECT PORT A 

001242 

MOV 

PORTA, SEIZPT ; 

STORE SEIZING PORT'S ADDRESS 


CLR 

RMDS (RO) 

.-WRITE RMDS 

001244 

MOV 

PORTS. OPPRT 

.-'OPPOSITE' PORT ADDRESS 


.-FORCE AN ATTENTION BY SETTING 

ERRORS. 

000014 

MOV 

#-1 .RMER1 (RO) 

.-SET ERROR BITS 


.-START THE TIMER 



CLR 

TIME 

.-CLEAR THE ELAPSED TIME COUNTER 

001260 

MOV 

#2000., WATCH 

.-SET WATCH TO 2000. MS 

000010 

MOVB 

PORTS. RMCS2(R0> 

.-SELECT PORT B 

001240 

MOV 

PORTS, PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR 


.-WAIT FOR DRIVE TO TIMEOUT 


RMDS(RO) 

2 $ 

WATCH 

IS 

36 



IS: 

2$: 

TST 

BNE 

TST 

BNE 

EMT 

000010 


MOVB 

001240 


MOV 


.-THE 

ERROR BIT 

CLR 

001126 


MOV 

001122 


MOV 

ADD 

001124 


MOV 

001164 


MOV 

001164 


B1C 

001164 


CMP 

BEQ 

C011 74 


MOV 

001174 


BIC 

001124 


BIS 

EMT 

COM 


66$: 

NOP 


.-THE 

ERROR REG 


WAIT FOR THE DRIVE TO BE RELEASED 
BR IF DRIVE RELEASED 
WATCH AT ZERO ? 

BR IF NOT 


PORTA, RMCS2(R0) .-SELECT PORT A 

PORTA, PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


CKERR .-CLEAR THE 'CHECK ERROR' INDICATOR 

RMDS(RO) ,$8DDAT ;GET CONTENTS OF RMDS 
fRMDS.SBDADR ;FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
,-WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO 'STMPO' 
.-SAVE SPECIFIED BITS 
.-COMPARE THE BITS 
;8R IF OK 
COPY 'BAD DATA' 

.-CLEAR THE MASKED BITS 
.-'OR* WITH GOOD DATA FOR TYPEOUT 


RO.SBDADR 
#ERR,$GDDAT 
SBDDAT, STMPO 
# A CERR, STMPO 
S6DDAT. STMPO 
66S 

SBDDAT, STMP4 
#ERR.STHP4 
STMP4.SGDDAT 
23 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


001250 


CLR 

000014 

001126 

MOV 

000014 

001122 

MOV 

m 

001124 

ADD 

MOV 

001124 

001126 

CMP 



BEQ 



EMT 


CKERR .-CLEAR THE 'CHECK ERROR* INDICATOR 

RMER1 (RO) .S8DDAT ;GET CONTENTS OF RMER1 
#RMER1 .SBDADR .-FORM REGISTER ADDRESS OF ERROR MESSAGE 
RO.SBDADR ;/ 1>D RH/RM BASE ADDRESS 

#lfr777. SGDDAT .-WHAT REGISTER SHOULD BE 

SGDDAT.iBDDAT ;IS THE REGISTER OK ? 

68$ ;BR IF OK 

10 


SEQ 


I 


J 


SEQ 0145 


i k*MAO 
T42 
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055506 

055512 


0555H 

055520 

055526 

C55534 

05S540 

055546 

055554 

055562 

055570 

055572 

055600 

055606 

0556K 

055616 

055622 


055624 

055630 

055636 

055642 

055650 

055656 

055664 

055672 

055700 

055706 

055714 

055722 

055730 

055736 

055744 

055752 

055754 

055760 

055762 

055764 

055770 

055776 

056004 

056012 

056016 

056020 

056026 

056034 

056042 

056046 

056050 

056056 

056064 

056072 


005137 

000240 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104041 

005137 

000240 


001250 


68 $: 


COM 

NOP 


CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


;THE ATTENTION BIT FOR PORT A SHOULD STILL BE SET 


001250 


CLR 

CKERR 

000012 

001126 

MOV 

RMDS(RO) .SBDDAT 

000012 

001122 

MOV 

fRMDS.SBDADR ; 

001122 


ADD 

RO.SBDADR 

100000 

001124 

MOV 

fATA.SGDDAT ;U 

001126 

001164 

MOV 

SBDDAT, STMPO 

077777 

001164 

BIC 

#*CATA, STMPO ; 

001124 

001164 

CMP 

SGDDAT. STMPO 



BEQ 

70S 

001126 

001174 

MOV 

SBDDAT, STMP4 

100000 

001174 

BIC 

#ATA,$TMP4 

001174 

001124 

BIS 

STMP4, SGDDAT 



EMT 

41 

001250 


COM 

CKERR 



70S: NOP 



.’CLEAR THE 'CHECK ERROR' INDICATOR 
;GET CONTENTS Of RMDS 
ORM REGISTER ADDRESS OF ERROR MESSAGE 
.-ADD RH/RM BASE ADDRESS 
<AT REGISTER SHOULD BE 
.’MOVE REGISTER CONTENTS TO ’STMPO' 

5AVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
.’COPY 'BAD DATA' 

.’CLEAR THE MASKED BITS 

;'0R' WITH GOOD DATA FOR TYPEOUT 

.-SET THE REGISTER COMPARE ERROR INDICATOR 


.VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


005037 

001254 



CLR 

012737 

000012 

001122 


MOV 

060037 

001122 



ADD 

012737 

051700 

001124 


MOV 

113760 

001224 

G00010 


MOVB 

016037 

000012 

001170 


MOV 

042737 

024001 

001170 


BIC 

013737 

001170 

001164 


MOV 

042737 

100100 

001164 


BIC 

113760 

001226 

000010 


M0V8 

016037 

000012 

001172 


MOV 

042737 

024001 

001172 


BIC 

013737 

001172 

0C1166 


MOV 

042737 

100100 

001166 


BIC 

023737 

00116' 

001166 


CMP 

001006 




BNE 

005737 

001164 



TST 

001045 




BNE 

104046 




EMT 

000137 

056164 



JMP 

013737 

001170 

001126 

72S: 

MOV 

013737 

001226 

001240 


MOV 

113760 

001226 

000010 


MOVB 

005737 

001164 



TST 

001414 




BEQ 

013737 

001224 

001240 


MOV 

013737 

001172 

001126 


MOV 

113760 

001224 

000010 


MOVB 

005737 

001166 



TST 

001012 




BNE 

012737 

012760 

177777 

001254 

73S: 

MOV 

000011 

000000 


MOV 

012760 

000013 

000000 


MOV 

104026 




EMT 


RELERR .’CLEAR THE 'RELEASE ERROR ' INDICATOR 

fRMDS.SBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SSDADR ;ADD THE 1/0 BASE ADDRESS 

#51700,SGDDAT ;COMPARSION CONSTANT 
PORTA. RMCS2CR0) ; SELECT PORT A. 

RMDS(RO) .STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP 'WRL'.OM.STMPZ .’CLEAR DONT CARCS 

$TMP2, STMPO .’COPY IT INTO 'STMPO' 

#ATA.'VV. STMPO .’CLEAR PORT DEPENDENT BITS FROM THE COPY 

P0RT8.RMCS2(R0) .’SELECT PORT B. 

RMDS(RO) -STMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL!0M,STMP3 ; CLEAR DONT CARES 


STMP3.STMP1 
#ATA! VV.STMPl 
STMPO. STMP1 
72 S 
STMPO 
74S 
46 
76S 

STMP2.S6DDAT 
PORTB.FTNBR 
PORTS. RMCS2CR0) 
STMPO 
73 S 

PORTA. PTNBR 

STMP3.S8DDAT 

PORTA, RHCS2(R0) 

STMP1 

74S 

#- 1 .RELERR 
#11 .RMCS1 (RO) 
#13,RMCS1 (RO) 
26 


COPY IT INTO ’STMP1 
CLEAR PORT DEPENDENT BITS FROM THE COPY 
IS THE STATUS REGISTER THE SAME FROM BOTH PORTS 
BR IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

BR IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 
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SEO 0146 


H97 

1511 

1512 


056074 

056102 

056110 

056116 

056124 

056126 

056130 

056136 

056144 

056152 

056160 

056162 

056164 


056166 

056174 

056202 

056206 

056214 

056222 

056226 

056232 

056240 

056246 

056254 

056256 

056264 

056272 

056300 

056302 

056306 


056310 

056316 

056322 

056330 

056336 


013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 


113760 

013737 

005037 

016037 

012737 

060037 

005037 

013737 

042737 

023737 

001414 

013737 

042737 

053737 

104052 

005137 

000240 


113760 

005060 

012760 

012760 

000004 


001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001126 7i 
001240 
001126 
001126 


001126 75$: 
001240 
001126 
001126 


76$: 


NOV STNP2.SBODAT 

NOV PORTA. PTNBR 

BIC fATA.SBDDAT 

CNP SGDDAT.S8DDAT 

BEO 75$ 

ENT 7 

NOV $TMP3.$8DDAT 

NOV PORTB.PTNBR 

BIC #ATA,$BDDAT 

CNP $GDDAT,$8DDAT 

BEO 76$ 

ENT 7 

NOP 


LOOK FOR BIT FAILURES WHEN RNOS READ 
CHANGE PORT NUNBER 
DON'T CHECK THE ATTN BIT 
ALL BITS OK ? 

8R IF OK FRON PORT A. 

CHECK RNDS FOR BIT FAILURES - FRON PORT B. 
CHANGE PORT NUNBER 
DON'T CHECK THE ATTN BIT 
SEE IF READ OK FRON PORT B. 

8R IF OK 


.-THE ATTENTION BIT FOR PORT B SHOULD NOT BE SET 

r SELECT PORT B 


001226 

000010 

MOVB 

PORTS. RNCS2'R0> 
PORTB.PTNBR ;M< 

001226 

001240 

NOV 

001250 

CLR 

CKERR 

000012 

001126 

NOV 

RNDS(RO) ,$8DDAT 

000012 

001122 

NOV 

#RNDS.$BDADR ;l 

001122 


ADD 

RO.SSDADR 

001124 


CLR 

$GDDAT 

001126 

001164 

NOV 

$6DDAT.$TNP0 

0 77777 

001164 

BIC 

#*CATA.$TMPO ;! 

001124 

001164 

CNP 

$GDDAT,$TNPO 



BEQ 

77$ 

001126 

001174 

NOV 

$6DDAT.$TNP4 

100000 

001174 

BIC 

#ATA.$TMP4 

$TMP4.$GDDAT 

001174 

00H24 

BIS 


ENT 

52 

001250 


CON 

CKERR 



77$: NOP 




.CLEAR ATTENTION BIT FOR PORT A 


.-CLEAR THE 'CHECK ERROR' INDICATOR 
;GET CONTENTS OF RNDS 


;ADD RH/ftN BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;NOVE REGISTER CONTENTS TO 


’STHPO' 


; COMPARE THE BITS 
;BR IF OK 
.-COPY 'BAD DATA' 

.■CLEAR THE MASKED BITS 
; ' OR ’ WITH GOOD DATA FOR TYPEOUT 

;SET THE REGISTER COMPARE ERROR INDICATOR 


.•SELECT PORT 0A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
LOOP ? 


*************************************************************** 

TEST 43 TEST PORT 'B' TIMEOUT DOES NOT RESET DRIVE 

VERIFY THAT PORT TIMEOUT DOES NOT INITIALIZE THE DRIVE. 

A. SEIZE THE DRIVE THROUGH PORT 'B' BY WRITING O'S INTO RNDS. 

B. WRITE 1'S INTO RNER1 THROUGH PORT '8'. 

C. WAIT FOR THE DRIVE TO TIMEOUT. VERIFY THAT THE ORIVE RETURNED TO 
NEUTRAL: THAT ATTENTION IS SET FOR PORT 'B' AND IS NOT SET FOR 
PORT 'a'; AND THAT BOTH PORTS SEE 1'S IN THE ERROR REGISTER. 


001224 

000010 

N0V8 

PORTA. RNCS2CR0) 

000012 


CLR 

RNDS(RO) 

000011 

000000 

NOV 

#1 1 .RNCS1 (RO) 

000013 

000000 

3$: 

NOV 

SCOPE 

#13,RNCS1 (RO) 


it 
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1513 

1514 


056340 

056340 

056344 

056346 

05C350 

056354 

056362 

056370 

056376 

056376 

056404 

056410 


056416 

056424 

056430 

056436 

056444 

056452 

056456 

056464 


005737 001300 
001406 

OOCny 003062 
012737 177777 001300 
012737 056376 001106 
012737 056376 001110 


112737 000043 001102 
012706 001100 
012737 000002 001176 


113760 001224 
005060 000012 
012760 000011 
012760 000013 
113760 001226 
005060 000012 
012760 000011 
012760 000013 


056506 005060 000012 


056526 

056532 

056540 

056546 


056554 

056560 

056562 

056566 

056570 

056572 

056572 

056600 


005037 

012737 

113760 

013737 


005760 
001 004 
005737 
001372 
104036 


001256 

003720 

001224 

001224 


000012 

001260 

001226 
001 


1226 

0S6606 005037 001250 


TST43: 


1 S : 

2 $: 

TEST43: 


TST KV8CTL 

eeo 2s 

8PL 1$ 

JMP EXEC 

MOV #-1 .KYBCTL 

MOV #TEST43.SLPADR 

MOV #TEST43.SLPERR 

MO VS #43,STSTI* 

MOV #STACK,SP 

MOV #2.. STINES 


PERFORMING ONLY SINGLE TEST ? 
BR IF NOT 

BR IF JUST ENTERED TEST 
RETURN l GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

;MOVE #43 TO TEST NUMBER 
;LOAD THE STACK POINTER 
;;D0 2. ITERATIONS 


; CLEAR ATTENTION BITS FOR BOTH PORTS 


000010 

M0V8 

PORTA, RMCS2CR0) 

SELECT PORT #A 

CLR 

RMDS(RO) 

SEIZE THE DRIVE 

000000 

MOV 

#11 .RMCS1 (RO) 

ISSUE DRIVE CLEAR 

000000 

NOV 

#13,RNCS1(R0> 

RELEASE THE DRIVE 

000010 

N0V8 

PORTB.RNCS2(R0> 

SELECT PORT #8 

CLR 

RMDS(RO) 

SEIZE THE DRIVE THROUGH PORT 

000000 

MOV 

#1 1 .RMCS1 (RO) 

ISSUE DRIVE CLEAR 

000000 

NOV #13,RHCS1 (RO) 

.-SEIZE THE DRIVE THROUGH PORT B 

RELEASE THE DRIVE 

000010 

MOVB 

PORTS, RMCS2(R0) 

SELECT PORT B 

001242 

MOV 

PORTB.SEIZPT .-STORE SEIZING PORT'S ADDRESS 

CLR 

RMDS(RO) 

; WRITE RMDS 

001244 

MOV 

PORTA, OPPRT 

•OPPOSITE' PORT ADDRESS 


.-FORCE AN ATTENTION BY SETTING ERRORS. 

000014 

MOV 

#-1 .RMER1 (RO) 

.-SET ERROR BITS 


; START THE TIMER 


001260 

000010 

001240 


CLR TIME .-CLEAR THE ELAPSED TIME COUNTER 

MOV #2000.. WATCH .-SET WATCH TO 2000. MS 

M0V8 P0RTA,RMCS2(R0) .-SELECT PORT A 

MOV PORTA. PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 


.-WAIT FOR DRIVE TO TIMEOUT 
1 $: 


000010 

001240 


2 S: 


TST 

BNE 

TST 

BNE 

EMT 

M0V8 

MOV 


RMDS(RO) 

2 $ 

WATCH 

1 $ 

36 


WAIT FOR THE DRIVE TO BE RELEASED 
BR IF DRIVE RELEASED 
WATCH AT ZERO ? 

BR IF NOT 


P0RTB,RMCS2(R0) ; SELECT PORT B 

PORTS. PTNBR ;M0Vt PORT ADDRESS TO LOCATION FOR TYPEOUT 


.-THE ERROR BIT ('ERR') IN RMDS SHOULD STILL BE SET 

CLR CKERR ; CLEAR THE 'CHECK ERROR' INDICATOR 


URNHAO 

T43 
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SEC 0148 


056612 

056620 

056626 

055632 

056640 

056645 

056654 

056662 

056664 

056672 

056700 

056706 

056710 

056714 


056716 

056722 

056730 

056736 

056742 

056750 

056756 

056760 

056762 

056766 


056770 

056774 

0570C2 

057010 

057014 

057022 

057030 

057036 

057044 

057046 

057054 

057062 

057070 

057072 

057076 


057100 

057104 

057112 

057116 

057124 

057132 

057140 

057146 

057154 


016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

033737 

104023 

005137 

000240 


005037 

016037 

012737 

060037 

012737 

023737 

001403 

104010 

005137 

000240 


005037 

016037 

012737 

060037 

012737 

013737 

042737 

023737 

001414 

013737 

042737 

055737 

104041 

005137 

000240 


005037 

012737 

06003.* 

012737 

113760 

016037 

042737 

013737 

042737 


000012 

001126 

MOV 

000012 

001122 

MOV 

OC1122 


ADD 

040000 

001124 

MOV 

001126 

001164 

MOV 

137777 

001164 

BIC 

001124 

00H64 

CMP 

BEQ 

MOV 

001126 

001174 

040000 

001174 

BIC 

001174 

001124 

BIS 

EMT 

COM 

66S: NOP 

;THE ERROR 1 

001250 



RMDS(RQ) .SBDDAT ;GET CONTENTS OF RMDS 
fRMDS.SBDADR .FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 

.-MOVE REGISTER CONTENTS TO 'STMPO’ 
.-SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
•rr if ntc 
•COPY ’BAD DATA 1 
.•CLEAR THE MASKED BITS 
.-’OR* WITH GOOD DATA FOR TYPEOUT 


R0.J8DADR 
#ERR. SGDDAT 
SBDDAT.STMPO 
# A C ERR, STMPO 
SGDDAT.STMPO 
66S 

SBDDAT, STMP4 
#ERR.STNP4 
STMP4, SGDDAT 
23 

CKERR 


001250 


CLR 

000014 

001126 

MOV 

000014 

001122 

MOV 

001122 


ADD 

177777 

001124 

MOV 

001124 

001126 

CMP 

BEQ 

EMT 

001250 


COM 

68S: NOP 

;THE AT TENT 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


INDICATOR 


CKERR ; CLEAR THE ’CHECK ERROR’ 

RMER1 (RO) .SBDDAT ;GET CONTENTS OF RMER1 
ARMER1 .SBDADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 
;ADD RH/RM BASE ADDRESS 
;WHAT REGISTER SHOULD BE 
;IS THE REGISTER OK ? 

;BR IF OK 


R0.S8DADR 
#1/7777, SGDDAT 
SGDDAT. SBDDAT 
68S 
10 

CKERR 


.-SET THE REGISTER COMPARE ERROR INDICATOR 


;THE ATTENTION BIT FOR PORT B SHOULD STILL BE SET 


001250 


CLR 

0000’ 2 

001126 

MOV 

000012 

001122 

MOV 

001122 


ADD 

100000 

001124 

MOV 

001126 

001164 

MOV 

077777 

001164 

BIC 

001124 

001164 

CMP 



BEQ 

001126 

001174 

NOV 

100000 

001174 

BIC 

001174 

001124 

BIS 



EMT 

001250 


COM 



70S: NOP 


CKERR .-CLEAR THE ’CHECK ERROR’ INDICATOR 

RMDSCRO) .SBDDAT ;GET CONTENTS OF RMDS 
fRMDS.SBDADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 

.-ADD RH/RM BASE ADDRESS 

;UHAT REGISTER SHOULD BE 

.•MOVE REGISTER CONTENTS TO ’STMPO’ 
.-SAVE SPECIFIED BITS 
.•COMPARE THE BITS 
;BR IF OK 
;COPY ’BAD DATA’ 

; CLEAR THE MASKED BITS 
; ’OR’ WITH GOOD DATA FOR TYPEOUT 


R0.S6DADR 
#ATA, SGDDAT 
SBDDAT.STMPO 
#*CATA,STMPO 
SGDDAT.STMPO 
70S 

SBDDAT, STMP4 
#ATA.STNP4 
STMP4, SGDDAT 
41 

CKERR 


;SET THE REGISTER COMPARE ERROR INDICATOR 


.VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


001254 


CLR 

000012 

001122 

MOV 

001122 


ADD 

051700 

001124 

MOV 

001224 

000010 

N0V8 

000012 

001170 

MOV 

024001 

001170 

BIC 

001170 

100100 

001164 

MOV 

001164 

BIC 


RELERR .-CLEAR THE ’RELEASE ERROR ’ INDICATOR 

#RMDS, SBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 

R0.SB6ADR ;ADD THE I/O BASE ADDRESS 

#5^700, SGDDAT .-COMPARSION CONSTANT 
PORTA, RMCS2(R0) .'SELECT PORT A. 

RMDS(R0),STHP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP.'WRL?OM.STMP$ .-CLEAR DONT CARES 

STMP2.STMP0 .'COPY IT INTO ’STMPO’ _ „ 

#ATA!VV, STMPO .CLEAR PORT DEPENDENT BITS FROM THE COPY 
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057162 

1 1 3760 

001226 

000G10 


nova 

PORTS, RMCS2(R0) ; 

SELECT PORT 8. 

057170 

016037 

000012 

001172 


MOV 

RMDS(RO) ,$TMP3 

GET THE DRIVE STATUS REGISTER FROM PORT B. 

057176 

042737 

024001 

001172 


BIC 

#PIP!WRL!0M.$TMP3 .CLEAR DONT CARES 

057204 

013737 

001172 

001166 


MOV 

STMP3.STMP1 

COPY IT INTO '$TNP1' 

057212 

042737 

100100 

001166 


BIC 

#ATA!W.$TMP1 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

057220 

023737 

001164 

001166 


CMP 

STMP0.STMP1 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

C57226 

001006 



8NE 

72$ 

BR IF NOT 

057230 

00573? 

001164 



TST 

$TMPO 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

057234 

001045 




B ME 

74$ 

BR IF NOT 

05723o 

104046 




EMT 

46 


057240 

000137 

057440 



JMP 

76$ 

BYPASS THE REST OF THE CHECKS 

057244 

013737 

001170 

001126 

72$: 

MOV 

$TMP2.$BDDAT 

SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

057252 

013737 

001226 

001240 


Moy 

PORTS. PTNBR 

SEIZJN6 PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

057260 

113760 

001226 

000010 


M0V8 

PORTS, RMCS2(R0) 

SELECT PORT B. 

057266 

005737 

001164 



TST 

$TMPO 

SEE IF STATUS EQ 0 FROM PORT A. 

057272 

001414 




BEQ 

73$ 

BR IF ZERO 

J57274 

013737 

001224 

001240 


MOV 

PORTA, PTNBR 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

057302 

013737 

001172 

C01126 


MOV 

$TMP3,$BDDAT 

'BAD DATA* FOR ERROR TYPE OUT 

057310 

113760 

001224 

000010 


M0V8 

PORTA, RMCS2(R0) 

SELECT PORT A. 

057316 

005737 

001166 



TST 

$TMP1 

SEE IF STATUS EQ ZERO FROM PORT B. 

057322 

001012 




BNE 

74$ 

BR IF NOT 

057324 

012737 

177777 

001254 

73$: 

MOV 

#-1,RELERR 

SET 'RELEASE ERROR' INDICATOR 

057332 

012760 

000011 

000000 


MOV 

#11 .RMCS1 (RO) 

CLEAR THE DRIVE 

057340 

012760 

000013 

000000 


MOV 

#13,RMCS1 (RO) 

RELEASE THE DRIVE 

057346 

104026 




EMT 

26 


057350 

013737 

001 1 70 

001126 

74$: 

MOV 

$TMP2,$BDDAT 

LOOK FOR BIT FAILURES WHEN RMDS READ 

0573* : 6 

013737 

001224 

001240 


MOV 

PORTA, PTNBR 

CHANGE PORT NUMBER 

057364 

042737 

100000 

001126 


BIC 

#ATA,$BDDAT 

DON'T CHECK THE ATTN BIT 

057372 

023737 

001124 

001126 


CMP 

$GDDAT,$8DDAT 

ALL BITS OK ? 

057400 

001401 




BEQ 

75$ 

BR IF OK FROM PORT A. 

057402 

104007 




EMT 

7 


057404 

013737 

001172 

001126 

75$: 

MOV 

$THP3,$8DDAT 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

057412 

013737 

001226 

001240 


MOV 

PORTS, PTNBR 
#ATA,$8DDAT 

CHANGE PORT NUMBER 

057420 

042737 

100000 

001126 


BIC 

DON’T CHECK THE ATTN BIT 

057426 

023737 

001124 

001126 


CMP 

$GDDAT,$BDDAT 

SEE IF READ OK FROM PORT B. 

057434 

001401 




BEQ 

76$ 

BR IF OK 

057436 

104007 




EMT 

7 


057440 

000240 



76$: 

MOP 







; THE 

ATTENTION BIT FOR PORT A SHOULD NOT BE SET 

057442 

113760 

001224 

000010 


MOVS 

PORTA. RMCS2CR0) 

.‘SELECT PORT A 

057450 

013737 

001224 

001240 


MOV 

PORTA, PTNBR .MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

057456 

005037 

001250 



CLR 

CKfcRR 

.‘CLEAR THE 'CHECK ERROR' INDICATOR 

05740? 

016037 

000012 

001126 


MOV 

RMDSCRO) ,$BDDAT 

;6ET CONTENTS OF RMDS 

05/470 

012737 

000012 

001122 


MOV 

#RMDS,$8DADR .‘FORM REGISTER ADDRESS OF ERROR MESSAGE 

057476 

06003/ 

001122 



ADD 

R0,$8DADR 

ADD RH/RM BASE ADDRESS 

057502 

C05037 

001124 



CLR 

$GDDAT 

WHAT REGISTER SHOULD BE 

057506 

Cl 3737 

001126 

001164 


MOV 

S80DAT.9THPO 

MOVE REGISTER CONTENTS TO '$TMPO' 

057514 

042737 

077777 

001164 


BIC 

#*CATA.$TRPO .‘SAVE SPECIFIED BITS 

057522 

023737 

OOT 124 

001164 


CMP 

$6DDAT.$TMP0 

; COMPARE THE BITS 

057530 

001414 




BEQ 

77$ 

;8R IF OK 

057532 

013737 

001126 

001174 


MOV 

$8DDAT,$TMP4 

.•COPY 'BAD DATA' 

057540 

042737 

100000 

C011 74 


BIC 

#ATA f $TMP4 

.•CLEAR THE MASKED BITS 

057546 

053737 

001 1 74 

001124 


BIS 

$TMP4.$GDDAT 

;'0R' WITH GOOD DATA FOR TYPEOUT 

057554 

057556 

104052 

005137 

001250 



EMT 

COM 

52 

CKERR 

;SET THE REGISTER COMPARE ERROR INDICATOR 


! 



lZRnhaC 

!43 


1515 

1531 

1532 
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057562 

000240 



771: 

NOP 






; CLEAR ATTENTION BIT FOR PORT B 

057564 

057572 

057576 

057604 

057612 

113760 
005060 
012760 
Cl 2760 
000004 

001226 

000012 

000011 

000013 

000010 

000000 

000000 

3S: 

H0V8 

CLR 

MOV 

MOV 

SCOPE 

P0RTB.RMCS2(R0) 

RMDS(RO) 

fll.RMCSMRO) 

#13.RMCS1(R0) 


.•SELECT PORT #8 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
LOOP ? 


•TEST 44 PORT 'A 4 RETRIGSER BY DEMAND TEST 

•VERIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY NASS8US DEMAND. 

• A. SEIZE THE DRIVE THROUGH PORT 'A' BY WRITING O'S INTO RMDS. 

• B. WAIT 50G MS AND READ RMDS THROUGH PORT ’A'. 

I C. VERIFY THAT THE TIMEOUT OCCURS WITHIN ♦ OR - 25X OF THE SPECIFIED 

• TIME. (THE MEASUREMENT IS MADE FROM STEP *8'.) 

• D. VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 

• BIT IS SET. 


1533 

1568 


057614 

057614 

057620 

057622 

057624 

057630 

05763* 

057644 

057652 

057652 

057660 

057664 


*************************************************************** 

TST44: 

PERFORMING ONLY SINGLE TEST ? 

8R IF NOT 

8R IF JUST ENTERED TEST 
RETURN l GET NEXT TEST NUMBER 
SET SINGLE TEST INDICATOR 
SETUP SCOPE LOOP ADDRESS 
SETUP ERROR LOOP ADDRESS 

.-MOVE #44 TO TEST NUMBER 
;LOAD THE STACK POINTER 
;;D0 2. ITERATIONS 


.CLEAR ATTENTION BITS FOR BOTH PORTS 


005737 

001300 


TST 

KYBCTL 

001406 



BED 

2J 

100002 



PPL 

IS 

000137 

003062 


JMP 

EXEC 

012737 

177777 

001300 

1$: MOV 

#-1 .KYBCTL 

012737 

057652 

001106 

2$: MOV 

ITEST44.SLPADR 

012737 

057652 

001110 

MOV 

#TEST44,SLPERR 




TEST44: 


112737 

000044 

001102 

MQV8 

#44,STSTNM 

012706 

001100 


MOV 

fSTACK.SP 

012737 

000002 

001176 

MOV 

#2. .STIMES 


057672 

113760 

001224 

000010 

M0V8 

057700 

005060 

000012 


CLR 

057704 

012760 

000011 

000000 

MOV 

057712 

012760 

000013 

000000 

MOV 

057720 

113760 

001226 

000010 

HOVB 

057726 

005060 

000012 


CLR 

057732 

012760 

OOOOi 1 

000000 

MOV 

057740 

012760 

000013 

000000 

MOV 





.SEIZE THE DR 

057746 

113760 

001224 

000010 

MOVB 

057754 

013737 

001224 

001242 

MOV 

057762 

005060 

000012 


CLR 


PORTA, RMCS2(R0) 
RMDS(RO) 

#11 .RMCS1 (RO) 

#13,RMCS1(R0) 

PORTS. RMCS2(R0) 

RMDS(RO) 

#11.RMCS1(R0) 

#13,RMCS1(R0) 


.•SELECT PORT #A 
.•SEIZE THE DRIVE 
.-ISSUE DRIVE CLEAR 
.•RELEASE THE DRIVE 
.•SELECT PORT #B 
.•SEIZE THE DRIVE THROUGH PORT 
.•ISSUE DRIVE CLEAR 
.•RELEASE THE DRIVE 


•B' 


PORTA, RHCS2(R0) .-SELECT PORT A 

PORTA, SEIZPT .-STORE SEIZING PORT'S ADDRESS 

RMDS(RO) .-WRITE RMDS 


SEQ 0150 



. NHAC 

f S'. 
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SEO 01S1 


057766 

013737 

001226 

001244 

MOV 

PORTA, OPPRT 

:’ OPPOSITE* PORT ADDRESS 

t 





.-START THE 

TIMER 

I 

057774 

005037 

001256 


CLR 

TIME 

.-CLEAR THE ELAPSED TIME COUNTER 

060000 

012737 

000764 

001260 

NOV 

#500., WATCH 

.-SET WATCH TO TIM. MS 

060006 

005737 

001260 


1$: TST 

WATCH 

.-WATCH EQUAL TO ZERO 

060012 

001375 



BNE 

1$ 

;BR IF NOT 





.-START THE TIMER 


060014 

005037 

001256 


CLR 

TIME 

.-CLEAR THE ELAPSED TIME COUNTER 

060020 

012737 

005720 

001260 

NOV 

#2000., WATCH 

.-SET WATCH TO 2000. MS 


060026 

060032 

060040 

060046 

060052 

060054 

060060 

0o0062 

060064 


060072 

060076 

060104 

060110 

060116 

060124 

060132 

060140 

060146 

060154 

060162 

060170 

060176 

060204 

060212 

060220 

060222 

060226 

060230 

060232 

060236 

060244 

C60252 

Qo0260 

060264 

060266 

060274 

060302 

060310 


005760 

113760 

013737 

005760 

001004 

00573/ 

001372 

104036 

013737 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 


.RETRJGGER THE TIMEOUT ONE-SHOT 

000012 TST RMDS(RO) ;RETRJ6GER THE ONE-SHOT 

001226 000010 M0V8 PORTB.RMCS2(RO) ;SELECT PORI B 

001226 001240 MOV P0RTB.PTN8R .-MOVE PORT ADDRESS TO LOCATION FOR TYPE OUT 

000012 2$: TST RMDS(RO) .-WAIT FOR TIMEOUT 

BNE 3$ ;8R IF TIMEOUT OCCURRED 

001260 TST WATCH ; WATCH EQUAL TO ZERO ? 

BNE 2$ ;BR IF NOT 

EMT 36 

MOV TIME, TIMES .-SAVE THE ELAPSED TIME VALUE 


U» 

15' 


001256 001276 3$: 


.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


060416 

001170 

001226 

001226 

001164 

001224 

001172 

001224 

001166 


001122 

001124 

000010 

001170 

001170 

001164 

001164 

000010 

001172 

001172 

001166 

001166 

001166 


001126 

001240 

000010 


001240 

001126 

000010 


66 $: 


CLR 

MOV 

ADD 

MOV 

MO VS 

MOV 

BIC 

MOV 

BIC 

MOVE 

MOV 

BIC 

MOV 

BIC 

CMP 

BNE 

TST 

BNE 

EMT 

JMP 

MOV 

MOV 

MOVB 

TST 

BEQ 

MOV 

MOV 

MOVB 

TST 


RELERR .-CLEAR THE ’RELEASE ERROR ’ INDICATOR 

#RNDS.$8DADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO.SBDADR ;ADD THE I/O BASE ADDRESS 

#MOL ! PGM ! DPR ! DR Y J VV , SGDDAT .-COMPARISON CONSTANT 
PORTA,RMCS2(R0) .-SELECT PORT A. 

RMDS(RO) -STMP2 :GET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP JWRL10M.STMP2 .-CLEAR DONT CARES 

$TMP2.$TMP0 .-COPY IT INTO 'fTMPO* 

#ATA! VV,$TNP0 .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTB.RMCS2CRO) .-SELECT PORT B. 

RNDS(R0).$TNP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PI P ! WRL ! OM , $TNP3 .-CLEAR DONT CARES 


*TMP3,$TMP1 
#ATA! VV,$TNP1 
JTMP0.JTMP1 
66 $ 

$TMPO 

68 $ 

46 

70$ 

$TMP2,$BDDAT 

PORTB.PTNBR 

PORTS. RMCS2(R0) 

$TMPO 

67$ 

PORTA.PTNBR 
$TMP3.$BDDAT 
PORTA. RMCS2(R0) 
$TMP1 


.-COPY IT INTO '$TMP1 ' 

.-CLEAR PORT DEPENDENT BITS FROM THE COPY 

;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

‘BP IF NOT 

•REGISTERS ARE THE SAME: ARE THEY ZERO ? 

;BR IF NOT 

.-BYPASS THE REST OF THE CHECKS 
.-SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
.-SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
.-SELECT PORT B. 

.-SEE IF STATUS EQ 0 FROM PORT A. 

;BR IF ZERO 

.’SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
.-’BAD DATA’ FOR ERROR TYPE OUT 
.-SELECT PORT A. 

.-SEE IF STATUS EQ ZERO FROM PORT B. 
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SEG 0152 


1569 

1585 

1586 


060314 

060316 

060324 

060332 

060340 

060342 

060350 

060356 

060364 

060366 

060370 

060376 

060404 

060412 

060414 

060416 


060420 

060426 

060430 

060436 

060440 

060440 

060442 


001012 

012737 

012760 

012760 

Z°7% 

013737 

023737 

001401 

104007 

013737 

013737 

023737 

001401 

104007 

000240 


02373 7 

003004 

023737 

002001 

104025 

000004 


060444 

060444 

060450 

060452 

060454 

060460 

060466 

060474 

060502 

060502 

060510 

060514 


177777 

001254 

671: 

BNE 

MOV 

000011 

000000 


MOV 

000013 

000000 


MOV 

EMT 

MOV 

001170 

001126 

68$: 

001224 

001240 


MOV 

001124 

001126 


CMP 

BEO 

EMT 

NOV 

001172 

001126 

69$: 

001226 

001240 


MOV 

001124 

001126 


CMP 



70$: 

3E0 

EMT 

NOP 


68S 

#-1 .RELERR 
#11 ,RNCS1 (RO) 
#13.RNCS1(R0> 
22 

$TMP2.$8DDAT 
PORTA, PTNBR 
$GDOAT,SBDDAT 
69$ 

7 

$TMP3,$BDDAT 
PORTS, PTNBR 
S6DDAT.&8DDAT 
70S 
7 


GR IF NOT 

SET ’RELEASE ERROR’ INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
ALL BITS CK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

SEE IF READ OK FROM FORT B. 

BR IF OK 


; CHECK THE TIME FROM RETRIGGER TO TIMEOUT 


001276 

001264 

CMP 



BGT 

001276 

001266 

CMP 



BGE 


4$: 

EMT 

SCOPE 


TIMES, TIMEAP 
4$ 

TIMES, TIMEAM 
.♦4 

25 


MEASURED TIME GREATER THAN +25X TOLERANCE ? 
BR IF GREATER 

MEASURED TIME LESS THAN -25X TOLERANCE 
BR IF NOT 


.-LOOP 


*************************************************************** 

TEST 45 PORT 'B' RETRIGGER BY DEMAND TEST 

VFRIFY THAT THE PORT TIMEOUT ONE-SHOT CAN BE RETRIGGERED BY MASS8US DEMAND. 
A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMDS. 

WAIT 500 MS AND WRITE O’B INTO RMDS THROUGH PORT ’A*. 


B. 

C. 

D. 


VERIFY THAT THE TIMEOUT OCCURS WITHIN ♦ OR - 25X OF THE SPECIFIED 
TIME. (THE MEASUREMENT IS MADE FROM STEP *8'.) 

VERIFY THAT THE DRIVE RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION 
BIT IS SET. 


********************************************^****************** 
tsT45: 

.•PERFORMING ONLY SINGLE TEST ? 

*BR IF NOT 

.'BR IF JUST ENTERED TEST 
; RETURN t GET NEXT TEST NUMBER 
.-SET SINGLE TEST INDICATOR 
.•SETUP SCOPE LOOP ADDRESS 
; SETUP ERROR LOOP ADDRESS 

.-MOVE #45 TO TEST NUMBER 
.•LOAD THE STACK POINTER 
;;D0 2. ITERATIONS 


003737 

001300 


TST 

KY8CTL 

001406 



BEO 

2$ 

100002 



BPL 

1$ 

012737 

m 

001300 

JMP 

1$: MOV 

EXEC 

#-1 .KVBCTL 

012737 

060502 

001106 

2$: MOV 

#TEST45,$LPADR 

012737 

060502 

001110 

MOV 

#TEST45,$LPERR 


TEST45: 


112737 

000045 

001102 

N0V8 

#45,$TSTNN 

012706 

001100 


NOV 

fSTACK.SP 

012737 

000002 

001176 

MOV 

#2. ,$TIMES 


1587 


SCO 0153 


CZRNMAO 

K5 

1588 


^ c 
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0605 22 113760 
060530 005060 
060534 012760 
060542 012760 
06055G 113760 
060556 005060 
060562 012760 
060570 012760 


060576 113760 
060604 013737 
060612 005060 
060616 013737 


060624 005037 
060630 012737 
060636 005737 
060642 001375 


060644 005037 
060650 012737 


060656 005760 
060662 113760 
060670 013737 
060676 005760 
060702 001004 
060704 005737 
060710 001372 
060712 104036 
060714 013737 


060722 005037 
060726 012737 
060734 060037 
060740 012737 
060746 113760 
060754 016037 

060762 042737 
060770 013737 
060776 042737 
061004 113760 

061012 016037 
061020 042737 


001224 000010 
<50001 2 

C0001 1 000000 

000013 000000 
001226 000010 
000012 

000011 000000 
000013 OOOOOO 


001226 0C0010 
001226 001242 
000012 

001224 001244 


001256 

000764 001260 

001260 


001256 

003720 001260 


000012 

001224 000010 
001224 001240 
000012 

001260 


001256 001276 


001254 

000012 001122 
001122 

011700 001124 
001224 000010 
000012 001170 
024001 001170 
001170 001164 
100100 001164 
001226 000010 
000012 001172 
024001 001172 


.CLEAR ATTENTION BITS FOR BOTH PORTS 


HOVB PORTA, RMCS2(R0> 

CLR RMDS(RO) 

NOV <71 1 .RNCS1 (RO) 

NOV #13,RMCSKR0> 

N0V8 PORTS. RMCS2CR0) 

CLR RNDSiRO) 

NOV #11 .RNCS1 (RO) 

NOV #13,RMCS1 (RO) 

; SEIZE THE DRIVE THROUGH PORT B 


; SELECT PORT #A 
.‘SEIZE THE DRIVE 
.’ISSUE DRIVE CLEAR 
.RELEASE THE DRIVE 
.•SELECT PORT #8 

.‘SEIZE THE DRIVE THROUGH PORT *B' 
.‘ISSUE DRIVE CLEAR 
.‘RELEASE THE DRIVE 



MOVB 

PORTS, RKCS2 (RO) 

.‘SELECT PORT B 


MOV 

PORTB.SE I ZPT ; 

STORE SEIZING PORT'S ADDRESS 


CLR 

RMDS(RO) 

; WRITE RMDS 


MOV 

PORTA. OPPRT 

.-’OPPOSITE’ PORT ADDRESS 

.•START 

THE TIMER 



CLR 

TIME 

; CL EAR THE ELAPSED TIME COUNTER 


MOV 

#500. .HATCH 

.-SET HATCH TO TIM. MS 

IS: 

TST 

HATCH 

.‘HATCH EQUAL TO ZERO 


BNE 

1$ 

;BR IF NOT 

.START 

THE TIMER 



CLR 

TIME 

; CLEAR THE ELAPSED TIME COUNTER 


MOV 

#2000., HATCH 

.-SET HATCH TO 2000. MS 


; RE TRIGGER THE TIMEOUT ONE-SHOT 

TST RNDS(RO) ; RE TRIGGER THE ONE-SHOT 

M0V8 PORTA, RNCS2 (RO) .‘SELECT PORT A 

NOV PORTA, PTNBR .‘MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

2$: TST RNDS(RO) .‘WAIT FOR TIMEOUT 

BNE 3$ ;8R IF TIMEOUT OCCURRED 

TST HATCH .‘HATCH EQUAL TO ZERO ? 

BNE 2$ ;BR IF NOT 

ENT 36 

3$: MOV TIME, TIMES ;SAVE THE ELAPSED TIME VALUE 

.•VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 

CLR RELERR .‘CLEAR THE ’RELEASE ERROR ’ INDICATOR 

MOV #RMDS,SBDADR .‘FORM THE ADDRESS OF RMDS FOR TYPEOUT 

ADD RO.SBDADR ;ADD THE I/O BASE ADDRESS 

MOV #H0L!PGM!DPR!DRy1w,SGDDAT .‘COMPARISON CONSTANT 

MOVB PORTA,RNCS2(R0) .‘SELECT PORT A. 

MOV RMDSCR0>.$TMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 

BIC #PIP! WRL! OH, STMP2 ; CLEAR DONT CARES 

MOV STNP2.STMP0 .‘COPY IT INTO ’STMPO’ 

BIC #ATAJVV, STMPO .‘CLEAR PORT DEPENDENT BITS FROM THE COPY 

MOVB P0RTB,RMCS2(R0> ; SELECT PORT B. 

MOV RMDS(60) f $TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 

BIC #PIP!WRlI0M,STHP3 .‘CLEAR DONT CARES 
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061026 

013737 

001172 

001166 


MOV 

*TMP3,*TMP1 

COPY IT INTO ’STNP1* 

061034 

042737 

100100 

001166 


BIC 

#ATA! W,*TMP1 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

061042 

023737 

001164 

001166 


CMP 

STMP0.STMP1 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

061050 

001006 




BNE 

66* 

BP IF NOT 

061052 

005737 

001164 



TST 

STMPO 

REGISTERS ARE THE SAME: ARE THEY ZERO : 

061056 

001045 




BNE 

68* 

BR IF NOT 

061060 

104046 




EMT 

46 


061062 

000137 

061246 



JMP 

70S 

BYPASS THE REST OF THE CHECKS 

061066 

013737 

001170 

001126 

66S: 

MOV 

STMP2.SBDDAT 

SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

061074 

013737 

001226 

001240 


MOV 

PORTS .FTNBR 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

061102 

113760 

001226 

000010 


MOVB 

PORTB.RMCS2(R0) 

SELECT PORT B. 

061110 

005737 

001164 



TST 

STMPO 

SEE IF STATUS EQ 0 FROM PORT A. 

061114 

001414 




BEQ 

67* 

BR IF ZERO 

061116 

013737 

001224 

001240 


MOV 

PORTA, PTNBR 

SEIZING PORT IF TEST SHOUS DRIVE NOT IN NEUTRAL 

061124 

013737 

001172 

001126 


MOV 

STMP3.S6DDAT 

’BAD DATA* FOR ERROR TYPE OUT 

061132 

113760 

001224 

000010 


MOVB 

PORTA, RMCS2(R0) 

SELECT PORT A. 

061140 

005737 

001166 



TST 

*TMP1 

SEE IF STATUS EQ ZERO FROM PORT B. 

061144 

001012 




BNE 

60S 

BR IF NOT 

061146 

012737 

177777 

001254 

67* : 

MOV 

#- 1 .RELERR 

SET 'RELEASE ERROR' INDICATOR 

061154 

012760 

000011 

000000 


MOV 

#11 ,RMCS1 (RO) 

CLEAR THE DRIVE 

061162 

012760 

000013 

000000 


MOV 

#13,RMCS1 (RO) 

RELEASE THE DRIVE 

061170 

104022 




EMT 

22 


061172 

013737 

001170 

001126 

68*: 

MOV 

STMP2.S8DDAT 

LOOK FOR BIT FAILURES WHEN RMDS READ 

061200 

013737 

001224 

001240 


MOV 

PORTA, PTNBR 

CHANGE PORT NUMBER 

061206 

02373? 

001124 

001126 


CMP 

SGDDAT.S8DDAT 

ALL BITS OK ? 

06*214 

001401 




BEQ 

69* 

BR IF OK FROM PORT A. 

06*216 

104007 




EMT 

7 


06" 220 

013737 

001172 

001126 

69*: 

MOV 

STMP3.S8DDAT 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

061226 

013737 

001226 

001240 


MOV 

PORTB. PTNBR 

CHANGE PORT NUMBER 

061234 

023737 

001124 

001126 


CMP 

SGDDAT.SBDDAT 

SEE IF READ OK FROM PORT B. 

061242 

001401 




BEG 

70* 

BR IF OK 

061244 

104007 




EMT 

7 


061246 

000240 



70S: 

NOP 







.CHECK 

THE TIME 

FROM RETRIGGER TO TIMEOUT 

061250 

023737 

001276 

001272 


CMP 

TIMES, TIMEBP 

MEASURED TIME GREATER THAN +25X TOLERANCE ? 

061256 

003004 




BGT 

4$ 

BR IF GREATER 

061260 

023737 

001276 

001274 


CMP 

TIMES, TIMEBM 

MEASURED TIME LESS THAN -25X TOLERANCE 

061266 

002001 




BGE 

.♦4 

BR IF NOT 

061270 




4S: 




061270 

104025 




EMT 

25 


061272 

000004 




SCOPE 


;LOOP ? 


1589 

1610 

1611 ;;***»*******t***t***********»t*t************«****«*t*****t****t 

;*TEST 46 PORT 'A' TIMEOUT/REIEASE TEST 

;* VERIFY THAT THE TIMEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 
;* SWITCHES PORTS AND SEIZING PORT PERFORMS NO REGISTER ACCESSES. 

;* A. SEIZE THE DRIVE THROUGH PORT *8' BY WRITING 0*S INTO RMDS. 

;* B. SET PORT REQUEST BY WRITING O'S INTO RMDS FROM PORT 'A*. 

;* C. ISSUE A RELEASE COMMAND FROM PORT 'B'. VERIFY THAT THE DRIVE 
;* HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA' BIT DID NOT 


SEQ 015? 
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IL2R* 

jCLOC 


061274 

061274 

061300 

061302 

061304 

C61310 

061316 

061324 

061332 

061332 

0j1340 

061344 


061352 

061360 

061364 

061372 

061400 

061406 

061412 

061420 


061426 

061434 

061442 

061446 

061454 

061462 


061470 

061474 

061502 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 
013737 
005060 
013737 
1 13760 
013737 


001300 


000046 001102 

001100 

000002 001176 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001226 

001226 

000012 

001224 

001224 

001224 


005060 000012 
113760 001226 
013737 001226 


SET FOR PORT *8'. REGISTERS WILL NOT 8E CHECKED THROUGH PORT 

D. WAIT THE TIMEOUT INTERVAL ♦ 25X. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 

E. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TST46: 


003062 

177777 001300 IS: 
061332 001106 2$: 
061332 001110 


TST 

KYBCTL 

.■PERFORMING ONLY SINGLE TEST ? 

BEQ 

2S 

;BR IF NOT 

BPL 

1$ 

;BR IF JUST ENTERED TEST 

JMP 

EXEC 

.‘RETURN t GET NEXT TEST NUMBER 

MOV 

#-1 .KYBCTL 

;SET SINGLE TEST INDICATOR 

MOV 

#TEST46,$LPADR 

.‘SETUP SCOPE LOOP ADDRESS 

MOV 

#TEST46,$LPERR 

; SETUP ERROR LOOP ADDRESS 

MOVB 

#46,$TSTNH 

.■MOVE #46 TO TEST MMBER 

MOV 

fSTACK.SP 

.-LOAD THE STACK POINTER 

MOV 

#2. ,$TIMES 

;;D0 2. ITERATIONS 


TEST46: 


.•CLEAR ATTENTION BITS FOR BOTH PORTS 


000010 

000000 

000000 

000010 

ocoooo 

000000 


0U0010 

001242 

001244 

000010 

001240 


000010 

001240 


061510 012760 000013 000000 


061516 013737 001264 001260 


MOVB PORTA, RMCS2TR0) .‘SELECT PORT #A 

CLR RMDS(RO) .‘SEIZE THE DRIVE 

MOV #11,RMCS1(R0) .‘ISSUE DRIVE CLEAR 

MOV #13,RMCS1 (RO) .‘RELEASE THE DRIVE 

MOVB P9RTB,RMCS2(R0) ; SELECT PORT #8 

CLR RMDS(RO) .‘SEIZE THE DRIVE THROUGH PORT 'S’ 

MOV #11 .RMCS1 (RO) .‘ISSUE DRIVE CLEAR 

MOV #13.RMCS1CR0) .‘RELEASE THE DRIVE 

.•SEIZE THE DRIVE THROUGH PORT B 

MOVB PORTB,RMCS2(RO) .‘SELECT PORT B 

MOV PORTB.SEIZPT .‘STORE SEIZING PORT’S ADDRESS 

CLR RMDS(RO) .‘WRITE RHDS 

MOV PORTA. OPPRT .'’OPPOSITE' PORT ADDRESS 

MOVB PORTA. RMCS2(R0) ;SELECT PORT A _ 

MOV PORTA, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

.•SET REQUEST THROUGH PORT A 

CLR RMDS(RO) .‘SET REQUEST FOR PORT A 

MOVB PORTB.RMCS2(R0) ;SELECT PORT B „ 

MOV PORTS, PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

.‘RELEASE THE DRIVE THROUGH PORT 3 

MOV #13,RMCS1 (RO) .‘RELEASE DRIVE THROUGH PORT B 

.•WAIT THE MEASURED TIMEOUT FOR THE PORT <♦ 25X) 

MOV TIMEAP, WATCH ;SET WATCH TO MEASURED TIMEOUT VALUE ♦ 25X 


SEQ 0156 


PORT 'A' TINEOUT/RELEASE TEST 


061524 
061530 
061536 
061544 
061550 
061554 
061 562 
061564 
061566 
061572 
061574 
061600 
061602 


061614 

061620 

061626 

061632 

061640 

061646 

061654 

061662 

061670 

061676 

061704 

061712 

061720 

061726 

061734 

061742 

061744 

061750 

061752 

061754 

061760 

wm 

0620Q2 


005037 

016037 

012737 

060037 

005037 

023737 

001403 

104031 

005137 

000240 

005737 

001402 

000137 


001250 

000012 

000012 

001122 

001124 

001124 


001250 

001250 

062156 


061606 005737 001260 
061612 001375 


062046 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

» 

001045 

fe 

013737 

|l| 

pf 

012760 


001254 

000012 

001122 

011700 

001224 

000012 

024001 

001170 

100100 

001226 

000012 

024001 

001172 

100100 

001164 

001164 


062154 

001170 

001226 

001226 

001164 


001126 

001122 


001126 


001122 

001124 
000010 
001170 
001170 
001164 
001 164 
000010 
001172 
001172 
001166 
001166 
001166 


001126 

001240 

000010 


001240 

001126 

000010 
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.-VERIFY 

THAT 

THE DRIVE IS SEIZED BY PORT A 


CLR 

CKERR 

.-CLEAR THE 'CHECK ERROR' INDICATOR 


NOV 

RMDS(R0).$8DDAT 

.-GET CONTENTS OF RMDS 


NOV 

fRMDS.SBDADR ; 

FORM REGISTER ADDRESS OF ERROR MESSAGE 


ADD 

R0.S6DADR 

;ADD RH/RM BASE ADDRESS 


CLR 

SGDDAT 

.-WHAT REGISTER SHOULD BE 


CMP 

SGDDAT.SBDDAT 

;IS THE REGISTER OK ? 


BEO 

66$ 

;BR IF OK 


EMT 

31 



COM 

CKERR 

.-SET THE REGISTER COMPARE ERROR INDICATOR 

66$: 

NOP 




TST 

CKERR 

.-REGISTER OK ? 


BEQ 

.♦6 

;BR IF OK 


JMP 

1$ 

.-BYPASS REST OF TEST IF NOT 

:WAIT FOR THE 

TIMER TO RELEASE 

THE DRIVE 


TST 

WATCH 

.-WATCH EQUAL ZERO ? 


BNE 

.-4 

;BR IF NOT 

.-CONFIRM THAT 

THE DRIVE HAS TIMED OUT 

.-VERIFY 

THAT 

THE DRIVE IS STILL 

IN NEUTRAL 


CLR 

RELERR 

.-CLEAR THE 'RELEASE ERROR ' INDICATOR 


MOV 

*RMDS,$6DADR 

.-FORM THE ADDRESS OF RMDS FOR TYPEOUT 


ADD 

RO.SBDADR 

.-ADD THE I/O BASE ADDRESS 


CZRH 

scon 


177777 

000011 


000000 


MOV 

wove 

NOV 

BIC 

NOV 

BIC 

N0V8 

NOV 

BIC 

NOV 

BIC 

CNP 

BNE 

TST 

BNE 

ENT 

JNP 

NOV 

NOV 

NOVB 

TST 

BEQ 

NOV 

NOV 

NOVB 

TST 

BNE 

NOV 

NOV 


4TM0L PGN ! OPR ! DRY ! VV,$GDDAT .-COMPARISON CONSTANT 
PORTA, RHCS2CR0) .-SELECT PORT A. 

RMDS(R0).$TMP2 ;6ET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIPJWRL!0N.$TNP2 .-CLEAR DONT CARES 

STNP2.STNP0 .-COPY IT INTO '$TMPO' 

#ATA! VV.STNPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RNCS2CR0) .-SELECT PORT B. 

RNDS(R0>.$TNP3 ;6ET THE DRIVE STATUS REGISTER FROM PORT B. 
API P ! WRL ! ON , STMP3 .-CLEAR DONT CARES 


$TMP3,$TMP1 

#ATA!W,$TMP1 

STMPO. STNP1 

68S 

STMPO 

70S 

46 

72S 

STNP2.S8DDAT 

PORTB.PTNBR 

PORTS, RNCS2(R0) 

STMPO 

69S 

PORTA, PTNBR 

STMP3.S8DDAT 

PORTA, RNCS2(R0) 

STMP1 

70S 

f-1 .RELERR 
A11.RNCSKR0) 


COPY IT INTO 'STMP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

8R IF NOT 

REGISTERS ARE THE SAME: ARE THEY ZERO ? 

SR IF NOT 

BYPASS THE REST OF THE CHECKS 

SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

eci err pnpr a 

SEE IF STATUS*EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
•BAD DATA* FOR ERROR TYPE OUT 
SELECT PORT A. , 

SEE IF STATUS EQ ZERO FROM PORT B. 

8R IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 


SEQ 0157 


B 13 
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062054 
062062 
062064 
062072 
062100 
062106 
0621 14 
062116 
062120 
062126 
0621 & 
062142 
062150 
062152 
062154 
062156 


012760 

104035 

013737 

013737 

042737 

023737 

001401 

104007 

013737 

013737 

042737 

023737 

001401 

104007 

000240 

000004 


000013 000000 


001170 

001224 

100000 

001124 


001172 

001226 

100000 

001124 


001126 

001240 

001126 

001126 


001126 

001240 

001126 

001126 


ROV #13.RRCS1(R0> 

ERT 35 

HOV STRP2.S8DOAT 

ROV PORTA.PTNBR 

BIC #ATA,*BDDAT 

CRP SGDDAT.S8D0AT 

BEO 71* 

ERT 7 

HOV STRP3.S8DDAT 

ROV PORTB.PTNBR 

BIC #ATA.*BDDAT 

CRP *f JDAT,*8DDAT 

BEQ 72$ 

ERT 7 

NOP 

SCOPE 


; RELEASE THE DRIVE 

;LOOK FOR BIT FAILURES WHEN RRDS READ 
; CHANGE PORT NUMBER 
; DON’T CHECK THE ATTN BIT 
rALL BITS OK ? 

;BR IF OK FROM PORT A. 


CHECK RRDS FOR BIT FAILURES 
CHANGE PORT NUMBER 
DON’T CHECK THE ATTN BIT 
SEE IF READ OK FROM PORT B. 
BR IF OK 


;L0 OP ? 


- FROM PORT B. 


062160 

062160 

062164 

Co2166 

062170 

062174 

062202 

062210 

062216 

062216 

062224 

062230 


005737 

001406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


001300 


003062 

177777 

062216 

062216 

000047 

001100 

000002 


001300 

001106 

001110 

001102 

001176 


TEST 47 


PORT ’B* TIREOUT/RELEASE TEST 


VERIFY THAT THE TIHEOUT ONE-SHOT IS TRIGGERED WHEN THE DRIVE 

SWITCHES PORTS AND SEIZING PORT PERFORMS NO RE6ISTER ACCESSES. 

A. SEIZE THE DRIVE THROUGH PORT 'A* BY WRITING O’S INTO RRDS. 

B. SET PORT REQUEST BY WRITING O'S INTO RRDS FROM PORT ’B’. 

C. ISSUE A RELEASE COMMAND FROM PORT ’A’. VERIFY THAT THE DRIVE 
HAS SWITCHED TO THE OTHER PORT AND THAT THE 'ATA* BIT DID NOT 

SET FOR PORT ’A*. REGISTERS WILL NOT BE CHECKED THROUGH PORT ’B\ 

V. WAIT THE TIMEOUT INTERVAL ♦ 25*. VERIFY THAT THE DRIVE HAS 
BEEN RELEASED. 


TST47: 


TEST47: 


TST 

KY8CTL 

; PERFORMING ONLY SINGLE TEST ? 

BEO 

2$ 

;8R IF NOT 

BPL 

1$ 

;8R IF JUST ENTERED TEST 

JRP 

EXEC 

.•RETURN * GET NEXT TEST NUMBER 

ROV 

#-1 .KYBCTL 

.-SET SINGLE TEST INDICATOR 

ROV 

#TEST47,*LPADR 

.‘SETUP SCOPE LOOP ADDRESS 

ROV 

#TEST47,*LPERR 

.‘SETUP ERROR LOOP ADDRESS 

ROVB 

#47,*TSTNR 

.-ROVE #47 TO TEST NUMBER 

MOV 

#STACK,SP 

.•LOAD THE STACK POINTER 

MOV 

#2.. MIRES 

;;D0 2. ITERATIONS 


062236 

062244 

062250 

062256 

062264 


113760 

005060 

012760 

012760 

113760 


001224 

000012 

000011 

000013 

001226 


000010 

000000 

000000 

000010 


.-CLEAR ATTENTION BITS FOR BOTH PORTS 

R0V8 PORTA. RRCS2(R0) ; SELECT PORT #A 

CLR RRDS(RO) .‘SEIZE THE DRIVE 

MOV fll.RRCSKRO) .‘ISSUE DRIVE CLEAR 

ROV #13,RRCS1 CRO) .‘RELEASE THE DRIVE 

ROVB PORfB.RRCS2(R0> .‘SELECT PORT #8 


CZRNH*0 

T47 
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062272 

062276 

062304 


062312 

062320 

062326 

062332 

062340 

062346 


062410 

062414 

062422 

062430 

062434 

062440 

062446 

062450 

062452 

062456 

062460 

062464 

062466 


005060 

012760 

012760 


113760 

013737 

005060 

013737 

113760 

013737 


00C012 

C00011 

000013 


001224 

001224 

000012 

001226 

001226 

001226 


000000 

000000 


C00010 

001242 

001244 

000910 

001240 


062354 005060 000012 
062360 113760 001224 000010 
062366 013737 001224 001240 


062374 012760 000013 000000 
062402 013737 001272 001260 


005037 

016037 

012737 

060037 

005037 

023737 

001403 

104031 

005137 

000240 

005737 

001402 

000137 


001250 

000012 

000012 

001122 

001124 

001124 


001250 

001250 

063042 


SEIZE THE DRIVE THROUGH PORT 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


'B' 


CLR RMDS(RO) 

MOV #11,RMCS1(R0) 

NOV #13.RMCS1<R0> 

;SEIZF THE DRIVE THROUGH PORT A 

N0V8 PORTA. RNCS2CR0) .-SELECT PORT A 

MOV PORTA, SEIZPT .-STORE SEIZING PORT’S ADDRESS 

CLR RMDS(RO) .-WRITE RMDS 

MOV PORTS, OPPRT .-’OPPOSITE* PORT ADDRESS 

M0V8 PORTB,RNCS2(R0> ;$ELECT PORT B 

MOV P0RT8.PTN8R .MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 

.-SET REQUEST THROUGH PORT B 

CLR RMDS(RO) ;SET REQUEST FOR PORT B 

M0V8 PORTA, RMCS2CR0) ; SELECT PORT A 

MOV PORTA, PTNBR .-MOVE PORT ADDRESS TO LOCATION FOR TVPEOUT 
.-RELEASE THE DRIVE THROUGH PORT A 

MOV #13,RMCS1(R0> .-RELEASE DRIVE THROUGH PORT A 

.-WAIT THE MEASURED TIMEOUT FOR THE PORT (♦ 25X) 

MOV TIMEBP .WATCH ;SET WATCH TO MEASURED TIMEOUT VALUE ♦ 25% 

; VERIFY THAT THE DRIVE IS SEIZED BY PORT B 



CLR 

CKERR 

.-CLEAR THE 'CHECK ERROR* INDICATOR 

001126 

NOV 

RMDS(RO) .S8DDAT 

.-GET CONTENTS OF RMDS 

001122 

MOV 

fRMDS.SBDADR ; 

FORM REGISTER ADDRESS OF ERROR MESSAGE 

ADD 

R0.S8DADR 

.-ADD RH/RM BASE ADDRESS 


CLR 

IGDDAi 

.-WHAT REGISTER SHOULD BE 

001126 

CMP 

SGDDAT.SBDDAT 

;IS THE REGISTER OK ? 

BEO 

EMT 

COM 

NOP 

66$ 

31 

CKERR 

;BR IF OK 

66$: 

;SET THE REGISTER COMPARE ERROR INDIC 


TST 

CKERR 

.-REGISTER OK ? 


BEO 

.♦6 

;BR IF OK 


JMP 

1$ 

;8YPASo REST OF TEST IF NOT 


062472 005737 001260 
062476 001375 


.-WAIT FOR THE TIMER TO RELEASE THE DRIVE 

TST WATCH .-WATCH EQUAL ZERO ? 

BNE .-4 ;BR IF NOT 

.-CONFIRM THAT THE DRIVE HAS TIMED OUT 

.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


005037 

001254 


CLR 

012737 

000012 

001122 

MOV 

060037 

001122 


ADD 

012737 

011790 

001124 

MOV 

113760 

001224 

000010 

MOVB 


.-CLEAR THE ’RELEASE ERROR ’ INDICATOR 
.-FORM THE ADDRESS OF RMDS FOR TVPEOUT 
.-ADD THE I/O BASE ADDRESS 
JMOLJPGNJDPR.'DRVlW.SGDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2CR0) .-SELECT PORT A. 


RELERR 

#RMD$,SBDADR 
RO.SBDADR 



CZRNhAU 

T47 


1679 

1704 

1705 
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062532 

016037 

000012 

001170 


nov 

RftDSCR0),$TNP2 ; 

GET THE DRIVE STATUS REGISTER FRON PORi A. 

062540 

042737 

024001 

001170 


BIC 

#PIP!WRL!0N.$TNP2 .’CLEAR DONT CARES 

062546 

013737 

001170 

001164 


NOV 

STNP2.STNP0 

COPY IT INTO $TNPO 

062554 

042737 

100100 

001164 


BIC 

#ATA!W,$TNPO 

CLEAR PORT DEPENDENT BITS FRON THE COPY 

062562 

113760 

001226 

000010 


MOVB 

PORTS, RNCS2(RG) 

SELECT PORT B. 

062570 

016037 

000012 

001172 


NOV 

RNDS(RO) ,$TNP3 ; 

GET THE DRIVE STATUS REGISTER FRON PORT 8. 

062576 

042737 

024001 

001172 


BIC 

fPIPJWRL !0N,$TNP3 .’CLEAR DONT CARES 

062604 

013737 

001172 

001166 


NOV 

$TNP3,$TNP1 

COPY IT INTO ’$TNP1 

062612 

042737 

100100 

001166 


BIC 

#ATA!VV,$TNP1 

CLEAR PORT DEPENDENT SITS FRON THE COPY 

062620 

023737 

001164 

001166 


CNP 

$TNP0,$TNP1 

IS THE STATUS REGISTER THE SANE FRON BOTH PORTS 

062626 

001006 




BNE 

68$ 

SR IF NOT 

062630 

005737 

001164 



TST 

$TNPO 

REGISTERS ARE THE SANE: ARE THEY ZERO ? 

062634 

001045 




BNE 

70$ 

SR IF NOT 

062636 

10MK6 




ENT 

46 


062640 

000137 

063040 



JNP 

72$ 

BYPASS THE REST OF THE CHECKS 

062644 

013737 

001170 

001126 

68$: 

NOV 

$TFf»2,$BDDAT 

SET UP POSSIBLE BAD DATA FOR ERROR NESSAGE 

062652 

013737 

001226 

001240 


NOV 

PORTS, PTNBR 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

062660 

113760 

001226 

000010 


NOVB 

PORTS. RNCS2(R0> 

SELECT PORT B. 

062666 

005737 

001164 



TST 

$TNPO 

SEE IF STATUS EQ 0 FRON PORT A. 

062672 

001414 




BEQ 

69$ 

BR IF ZERO 

062674 

013737 

001224 

001240 


NOV 

PORTA. PTNBR 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

062702 

013737 

001172 

001126 


NOV 

$TNP3.$BDDAT 

'BAD DATA* FOR ERROR TYPE OUT 

062710 

113760 

001224 

000010 


NOVB 

PORTA, RNCS2CR0) 

SELECT PORT A. 

062716 

005737 

001166 



TST 

$TNP1 

SEE IF STATUS EQ ZERO FRON PORT 8. 

062722 

001012 




BNE 

70S 

BR IF NOT 

062724 

012737 

177777 

001254 

69$: 

NOV 

#-1 .RELERR 

SET ’RELEASE ERROR* INDICATOR 

062732 

012760 

000011 

000000 


NOV 

#11 ,RNCS1 (RO) 

CLEAR THE DRIVE 

062740 

012760 

000013 

000000 


NOV 

A13.RNCS1 (RO) 

RELEASE THE DRIVE 

062746 

104035 




ENT 

35 


062750 

013737 

001170 

001126 

70$: 

NOV 

$TNP2.$BDDAT 

LOOK FOR BIT FAILURES WHEN RNDS READ 

062756 

013737 

001224 

001240 


NOV 

PORTA.PTNBR 

CHANGE PORT NUNBER 

062764 

042737 

100000 

001126 


BIC 

#ATA,$BDDAT 

DON'T CHECK THE ATTN BIT 

062772 

023737 

001124 

001126 


CNP 

$GDDAT,S8DDAT 

ALL BITS OK ? 

063000 

001401 




BEO 

71$ 

BR IF OK FRON PORT A. 

063002 

104007 




ENT 

7 


063004 

013737 

001172 

00H26 

71$: 

NOV 

$TNP3,$8DDAT 

CHECK RNDS TOR BIT FAILURES - FRON PORT B. 

063012 

013737 

001226 

001240 


NOV 

PORTS. PTNBR 

CHANGE PORT NUMBER 

063020 

042737 

100000 

001126 


BIC 

#ATA,$6DDAT 

DON’T CHECK THE ATTN BIT 

063026 

023737 

001124 

001126 


CNP 

$GDDAT,$6DDAT 

SEE IF READ OK FRON PORT B. 

063034 

001401 




BEO 

72$ 

BR IF OK 

063036 

104007 




ENT 

7 


063040 

000240 



72$: 

NOP 



063042 

000004 



1$: 

SCOPE 


.-LOOP ? 


**************************************************************** 
•TEST 50 PORT 'A' SEIZE ACCESS TEST 

•VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

* A. SEIZE THE DRIVE THROUGH PORT ’A' BY WRITING O'S INTO RNDS. 

* B. WRITE 1’S INTO RNER1 . RNER2 THROUGH PORT ’A*. 

* C. READ RNER1. RNER2 THROUGH PORT *B'. VERIFY THAT PORT 

* 'S’ SEES 0*S FROM EACH OF THESE REGISTERS. 


SEQ 0159 



SEQ 0160 


CZRNHAO RM80 DUAL PORT PT1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 9-123 
T50 PORT ‘A’ SEIZE ACCESS TEST 


13 


1706 

1745 


063044 

063044 

063050 

063052 

063054 

063060 

063066 

063074 

063102 

063102 

063110 

063114 


063122 

0631*0 

063134 

063142 

063150 

063156 

063162 

063170 


063176 

063204 

063212 

063216 

063224 

063232 

063240 

063246 

063254 

063260 

063266 

063274 

063300 

063304 

063312 

063320 

063326 


005737 

0C1406 

100002 

000137 

012737 

012737 

012737 

112737 

012706 

012737 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 

013737 

005060 

013737 

012760 

012760 

113760 

013737 

004737 

113760 

013737 

005060 

005060 

013760 

113760 

013737 

012760 


001300 


003062 

177777 

063102 

063102 

000050 

001100 

000012 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001224 

001224 

000012 

001226 

177777 

177777 

001226 

001226 

064114 

001224 

001224 

000042 

000014 

001236 

001226 

m 


D. CLEAR RNER1, RNER2 THROUGH PORT 'A*. 

E. WRITE 1'S INTO RNER1. RMERc THROUGH PORT ’B\ VERIFY THAT 
PORT ’A' SEES O’S FROM EACH OF THESE REGISTERS. 

F. RELEASE THE DRIVE THROUGH PORT 'A'. VERIFY THAT THE DPIVE HAS 
SWITCHED TO PORT *8’ AND THAT THE ATTENTION BIT FOR PORT *8* IS 
SET AND THE ATTENTION BIT FOR PORT 'A 1 IS NOT SET. 

G. ISSUE A RELEASE COMMAND THROUGH PORT *B’. VERIFY THAT THE DRIVE 
RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


001300 

001106 

001110 

001102 

001176 


000010 

000000 

000000 

000010 

000000 

000000 


000010 

001242 

001244 
000014 
000042 
00001 0 
001240 

000010 

001240 


000016 

000010 

001240 

000014 


TST50: 

TST 

KYBCTL 

BEG 

2$ 

BPL 

IS 

JMP 

EXEC 

1$: MOV 

#-1 .KYBCTL 

2S: MOV 

#TEST50.$LPADR 

MOV 

#TESf50.SLPERR 

TEST50: 

MOVB 

#50.STSTNM 

MOV 

#STACK.SP 

MOV 

#10.. STINES 


.-PERFORMING ONLY SINGLE TEST ? 
-BR IF NOT 

;BR IF JUST ENTERED TEST 
.RETURN t GET NEXT TEST NUMBER 
.-SET SINGLE TEST INDICATOR 
.-SETUP SCOPE LOOP ADDRESS 
.-SETUP ERROR LOOP ADDRESS 

;MOVE #50 TO TEST NUMBER 
.-LOAD THE STACK POINTER 
.* ; DO 10. ITERATIONS 


.-CLEAR ATTENTION BITS FOR BOTH PORTS 


MOVB PORTA. RMCS2 (HO) 

CLR RMDS(RO) 

MOV #11 .RMCSKRO) 

NOV #13. RMCSKRO) 

MOVB PORTB.RMCS2(RO) 

CLR RMDS(RO) 

MOV #11. RMCSKRO) 

MOV #13.RMCS1(R0) 

.SEIZE THE DRIVE THROUGH PORT A 


.-SELECT PORT #A 
.-SEIZE THE DRIVE 
.‘ISSUE DRIVE CLEAR 
.-RELEASE THE DRIVE 
.-SELECT PORT #B 
.-SEIZE THE DRIVE THROUGH PORT 
.-ISSUE DRIVE CLEAR 
.-RELEASE THE DRIVE 


'8* 


MOVB 

MOV 

CLR 

MOV 

MOV 

MOV 

MOVB 

NOV 

JSR 

MOVB 

MOV 

CLR 

CLR 

MOV 

MOVB 

MOV 

NOV 


PORTA. RNCS2(R0) .-SELECT PORT A 

PORTA, SEIZPT .-STORE SEIZINS PORT’S ADDRESS 

.-WRITE RMDS 

.-’OPPOSITE’ PORT ADDRESS 
.-LOAD 1'S INTO RMER1 THROUGH PORT A 
.-LOAD 1’S INTO RMER2 THROUGH PORT A 
.‘SELECT PORT B 

;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
.-CHECK THE REGISTERS THROUGH PORT B 


RMDS(RO) 

PORTS. OPPRT 
#-1 .RMER1 (RO) 
#-1 ,RNER2(R0) 
PORTB.RMCS2(R0) 
PORTB.PTNBR 
PC.TST50B 


PORTA.RMCS2CR0) ;SELECT PORT A 
PORTA, PTNBR ;MOv£ PORT ADDRESS TO LOCATION FOR TYPEOUT 


CLEAR RMER2 ON PORT A 
CLEAR RMER1 ON PORT A 
CLEAR THE ATTENTION BIT FOR PORT A 
;SELECT PORT B 

PORTB.PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
#-1 .RMER1 (RO) .-LOAD 1’S INTO RMER1 THROUGH PORT B 


RNER2(R0) 
RMERKRO) 
ASRI.RNAS(RO) 
P0RTB.RMCS2(R0) 


1 


SEQ 0161 


CZRNhAO RH80 DJAL PORT PT1 MACRO V04.00 15-JAN-B2 07:09:22 PAGE 9-124 
T50 PORT ’A* SEIZE ACCESS TEST 


063334 012760 177777 000042 

063342 113760 001224 000010 
063350 013737 001224 001240 
063356 004737 064114 


063362 

063370 

063376 


063404 

063410 

063416 

063424 

063430 

063436 

063444 

063452 

063460 

063466 

063474 

063476 

063502 

063504 

063506 

063514 

063522 

063530 

063532 

063534 



113760 

013737 

012760 


005037 

012737 

012737 

060037 

113760 

013737 

016037 

113760 

013737 

016037 

001404 

005737 

001401 

104031 

013737 

013737 

023737 

001401 

104027 

000240 


001224 

001224 

000013 


001254 

111700 

000012 

001122 

001226 

001226 

000012 

001224 

001224 

000012 

001164 


001164 

001226 

001124 


063536 113760 001226 
063544 013737 001226 
063552 012760 000013 


7 001254 



00001 
001122 
7 011700 
001224 
000012 


000010 

001240 

000000 


001124 

001122 

000010 

001240 

001164 

000010 

001240 

001126 


001126 

001240 

001126 


7 100100 
001226 


MV JM,RNER2<RC> ;LOAD 1*S INTO RMER2 THROUGH PORT B 

MV8 PORTA, RHCS2<R0> ;SELECT PORT A 

MV PORTA, PTNBR ;MVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

JSR PC.TST50B ; CHECK THE REGISTERS THROUGH PORT A 

.RELEASE THE DRIVE FROM PORT A 

MVB PORTA, RNCS2(R0) rSELECT PORT A 

MV PORTA, PTNBR ;MVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

MV #13,RMCS1 (RO) .ISSUE RELEASE THROUGH PORT A 

.-VERIFY THAT DRIVE IS SEIZED BY PORT B WHEN RELEASED BY PORT A 

CL R RELERR : CLEAR ’RELEASE ERROR’ INDICATOR 

MV #ATA ! ML ! PGM! DPR ! DRY ! VV, SGDDAT .-COMPARISON CONSTANT 

MV fRMDS.SBDADR .-REGISTER ADDRESS INCREMENT 
ADD R0.S8DADR .-REGISTER BASE ADDRESS FOR TYPEOUT 

MVB P0RTB,RMCS2(R0> .-SELECT PORT B 

MV PORTS, PTNBR ;MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

MV RWS(RO) ,$TMPO .-READ STATUS RE6ISTER FROM PORT B 
MVB PORTA, RMCS2CR0) .-SELECT PORT A 

MV PORTA, PTNBR ;MVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

MV RMDS(R0),S6DDAT ,-DRIVE STATUS FROM PORT A 

BEQ 66$ ,-BR IF STATUS FROM PORT A ZERO 

TST STMPO ;1S STATUS FROM PORT B ZERO ? 

BEQ 66$ ;8R IF ZERO 

ENT 31 

66$: MV $TMPO,$BDDAT ; CHECK STATUS FROM PORT B 

MV PORTS, PTNBR .CHANGE PORT ADDRESS FOR TYPEOUT 

CM P $GDDAT,$BDDAT .-COMPARE WITH CONSTANT 

BEQ 67$ ,*8R IF OK 

27 


.-RELEASE THE DRIVE FROM PORT 8 


000010 

001240 

000000 


001122 

001124 
000010 
001170 
001170 
001164 
1164 


001166 

001166 

001166 


P0RIB,RMCS2(R0) ;SELECT PORT 8 

PORTS, PTNBR ;MVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RNCS1 (RO) .-ISSUE RELEASE THROUGH PORT B 


.-VERIFY THAT THE DRIVE IS STILL IN NEUTRAL 


CLR 

MV 

ADD 

MV 

MVB 

MV 

BIC 

MV 

BIC 

MVB 

MV 

BIC 

MV 

BIC 

CMP 


RELERR .-CLEAR THE ’RELEASE ERROR ’ INDICATOR 

fRMDS.SBDADR .-FORM THE ADDRESS OF RMDS FOR TYPEOUT 

R0,$80ADR .-ADD THE I/O BASE ADDRESS 

IMOLiPGMiDPRIDRYIVV.SGDDAT .-COMPARISON CONSTANT 
P0RTA.RMCS2CR0) .-SELECT PORT A. 

RMDS(RO).STMP2 ;GET THE DRIVE STATUS REGISTER FROM PORT A. 

#PIP>URL!0M,STMP2 .-CLEAR DONT CARES 

$TMP2,$TMP0 .-COPY IT INTO ’STMPO’ 

fATAiW, STMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 

PORTS, RNCS2CR0) .-SELECT PORT B. 

RMDS(R0).$TMP3 ;GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!MRL!0M,$TMP3 ; CLEAR DONT CARES 

$TMP3,$T»P1 .COPY IT INTO ’STMPI* 

#ATA!W,$TMP1 .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
STMP0.STMP1 ;IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 


SEO 0162 
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dhot 'i* cci7c *rrtc c tcct 


PORT 'A 

* SEIZE 

ACCESS TEST 





063706 

001006 




BNE 

68$ 

8R IF NOT 

063710 

005737 

001164 



TST 

$TNPO 

REGISTERS ARE THE SANE: ARE THEY ZERO ? 

063714 

001045 




BNE 

70S 

BR IF NOT 

063716 

104046 




ENT 

46 


063720 

000137 

064104 



JHP 

72$ 

BYPASS THE REST OF THE CHECKS 

063724 

013737 

001170 

001126 

68$: 

NOV 

STHP2,$8DDAT 

SET UP POSSIBLE BAD DATA FOR ERROR HE S SAGE 

063732 

013737 

001226 

001243 


NOV 

PORTS .PTNBR 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

063740 

113760 

001226 

000010 


N0V8 

PORTS, RNCS2(R0) 

SELECT PORT B. 

063746 

00573 7 

001164 



TST 

STNPO 

SEE IF STATUS EQ 0 FRON PORT A. 

063752 

001414 




BEQ 

69$ 

BR IF ZERO 

063754 

013737 

001224 

001240 


NOV 

PORTA, PTNBR 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 

063762 

013737 

001172 

001126 


NOV 

$TNP3,$BDDAT 

’BAD DATA* FOR ERROR TYPE OUT 

063770 

113760 

031224 

000010 


Nove 

PORTA, RNCS2 (RO) 

SELECT PORT A. 

063776 

005737 

001166 



TST 

STNP1 

SEE IF STATUS EQ ZERO FRON PORT B. 

064002 

001012 




BNE 

70$ 

BR IF NOT 

064004 

012737 

177777 

001254 

69$: 

NOV 

f-I.RELERR 

SET ’RELEASE ERROR' INDICATOR 

064012 

012760 

000011 

000000 


NOV 

#1 1 ,RNCS1 (RO) 

CLEAR THE DRIVE 

064020 

012760 

000013 

000000 


NOV 

#13,RMCS1 (RO) 

RELEASE THE DRIVE 

064C26 

104026 




ENT 

26 


064030 

013737 

001170 

001 i 26 

70$: 

NOV 

STNP2,S6DDAT 

LOOK FOR BIT FAILURES WHEN RHDS READ 

064036 

013737 

001224 

001 240 


NOV 

PORTA,PTNBR 

CHANGE PORT NUMBER 

064044 

023737 

001124 

001126 


CNP 

$GDDAT,$8DDAT 

ALL BITS OK ? 

064052 

001401 




BEQ 

71$ 

BR IF OK FRON PORT A. 

064054 

104007 




ENT 

7 


064056 

013737 

C011 72 

001126 

71$: 

NOV 

$TNP3,$8DDAT 

CHECK RHDS FOR BIT FAILURES - FRON PORT B. 

064064 

013737 

001226 

001240 


NOV 

PORTS, PTNBR 

CHANGE PORT NUMBER 

064072 

023737 

001124 

001126 


CNP 

SGDDAT,$6DDAT 

SEE IF READ OK FRON PORT B. 

064100 

001401 




8E0 

72$ 

BR IF OK 

064102 

104007 




ENT 

7 


064104 

000240 



72$: 

NOP 



064106 

000004 




SCOPE 


.-LOOP ? 

064110 

000137 

064336 



JMP 

TST51 

;G0 TO THE NEXT TEST 






; CHECK 

THE REGISTERS ON 

THE SELECTED PORT 

064114 




TST508: 




064114 

005037 

001250 



Clft 

CKERR 

.•CLEAR THE 'CHECK ERROR' INDICATOR 

064120 

016037 

000014 

001126 


NOV 

RNERI (RO) ,$8DDAT 

.-GET CONTENTS OF RNERI 

064126 

012737 

000014 

001122 


NOV 

fRNERI ,$6DADR ; 

FORM REGISTER ADDRESS OF ERROR MESSAGE 

064134 

060037 

001122 



ADD 

RO,$BDADR 

.ADD RH/RM BASE ADDRESS 

064140 

005037 

001124 



CLR 

SGDDAT 

;WHAT REGISTER SHOULD BE 

064144 

023737 

001124 

001126 


CNP 

$GDDAT,$6DDAT 

;IS THE REGISTER OK ? 

064152 

001403 




BEQ 

64$ 

;6R IF OK 

064154 

104006 




ENT 

6 


064156 

005137 

001250 



CON 

CKERR 

.-SET THE REGISTER COMPARE ERROR INDICATOR 

064162 

016037 

000000 

001126 

64$: 

NOV 

RNCS1 (RO) ,$8DDAT 

.-GET THE CONTENTS OF RMCS1 

064170 

012737 

000000 

001122 


NOV 

#RNCS1 ,$8DADR 

.-FORM ADDRESS OF REGISTER 

064176 

060037 

001122 



ADD 

RO, SfiDADS 

.•ADDRESS BASE 

064202 

032737 

020000 

001126 


BIT 

#NCPE,$8DDAT 

;IS 'NCPE' SET ? 

064210 

001404 




BEQ 

65$ 

;8R IF NOT 

064212 

104011 




ENT 

11 


064214 

012760 

040000 

000000 


NOV 

ATRE.RHCS1 (RO) 

.•CLEAR 'NCPE' 

064222 

000240 



65$: 

NO: 3 



064224 

005037 

001250 



CLR 

CKERR 

; CLEAR THE 'CHECK ERROR' INDICATOR 

064230 

016037 

000042 

001126 


NOV 

RNER2 < RO) , SBDDAT 

;GET CONTENTS OF RMER2 

064236 

012737 

000042 

001122 


NOV 

#RNER2,$8DA3R ; 

FORM REGISTER ADDRESS OF ERROR MESSAGE 

064244 

060037 

001122 



ADu 

R0,$8DADR 

.-ADD RH/RM BASE A3DRESS 


iZRNHAO 

T50 


1747 

1772 

1773 


1 77* 
1775 
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064250 

064254 

064262 

064264 

064266 

064272 

064300 

064306 

064312 

064320 

0643?2 

0643*4 

064332 

064334 


1 5-JAN-82 07:09:22 PAGE 9-126 * 


005037 

001124 



CIR 

S6DDAT 

WHAT RE6ISTER SHOULD BE 

023737 

001124 

001126 


CMP 

S6DDAT.S8DDAT 

IS THE RE6ISTER OK ? 

001403 




BEQ 

66$ 

BR IF OK 

104006 

005137 

001250 



EMT 

COM 

6 

CKERR 

SET THE RE6ISTER COMPARE 

016037 

000000 

001126 

66$: 

MOV 

RMCS1 (RO) .S6DDAT 

;6ET THE CONTENTS OF RMi 

012737 

060037 

000000 

001122 


MOV 

#RMCS1 .$8DADR 

FORM ADDRESS OF RE6ISTER 

001122 



ADD 

R0.S8DADR 

ADDRESS BASE 

032737 

020000 

001126 


BIT 

#MCP£.$BDDAT 

IS 'MCPE' SET ? 

001404 




BEQ 

67$ 

BR IF NOT 

104011 




EMT 

11 


012760 

040000 

000000 


MOV 

#TRE,RMCS1(R0> , 

CLEAR 'MCPE' 

000240 



67$: 

NOP 



000207 




RTS 

PC 

RETURN 



5737 



m 


001300 


m 

064374 

064374 

000051 

001100 

000012 


001300 

001106 

001110 

001102 

001176 


West 51 port 'S' seize access test 

•VERIFY THAT THERE IS NO INTERACTION BETWEEN PORTS. 

* A. SEIZE THE DRIVE THROUGH PORT '8' BY WRITING O'S INTO RMD5. 

* B. WRITE 1'S INTO RMER1 , RMER2 THROUGH PORT 'S'. 

* C. READ RNER1. RHER2 THROUGH PORT 'A'. VERIFY THAT PORT 

* 'A* SEES 0*S FROM EACH OF THESE REGISTERS. 

* D. CLEAR RMER1. RHER2 THROUGH PORT 'B'. 

* E. WRITE 1'S INTO RMER1 . RMER2 THROUGH PORT 'A*. VERIFY THAT 

* PORT *8' SEES O'S FROM EACH OF THESE REGISTERS. 

* F. RELEASE THE DRIVE THROUGH PORT '8'. VERIFY THAT THE DRIVE HAS 

* SWITCHED TO PORT 'A* AND THAT THE ATTENTION BIT FOR PORT 'A' IS 

* SET AND THE ATTENTION BIT FOR PORT '8' IS NOT SET. 

* G. ISSUE A RELEASE COMMAND THR0U6H PORT 'A'. VERIFY THAT THE DRIVE 

* RETURNED TO NEUTRAL AND THAT NEITHER ATTENTION BIT IS SET. 


TST51 : 





TST 

KYBCTL 

.'PERFORMING ONLY SINGLE TEST ? 


BEQ 

2$ 

;BR IF NOT 


BPL 

1$ 

;BR IF JUST ENTERED TEST 


JMP 

EXEC 

.'RETURN t 6ET NEXT TEST NUMBER 

1$: 

MOV 

#-1. KYBCTL 

.‘SET SINGLE TEST INDICATOR 

2$: 

MOV 

ITEST51 .SLPADR 

.‘SETUP SCOPE LOOP ADDRESS 


MOV 

#TEST51 ,$LPERR 

.‘SETUP ERROR LOOP ADDRESS 

TEST51 : 





MOVB 

#51.$TSTNM 

.-MOVE #51 TO TEST NUMBER 


MOV 

fSTACK.SP 

;LOAD THE STACK POINTER 


MOV 

#10. .SlIMES 

;;D0 10. ITERATIONS 


SEC 016 7 


.-CLEAR ATTENTION BITS FOR BOTH PORTS 
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T51 PORT ’B* SEIZE ACCESS TEST 


SEQ 0164 


0644 K 
064422 
064426 
064454 
064442 
064450 
064454 
064462 


064470 

064476 

064504 

064510 

064516 

064524 

064532 

064540 

064546 

064552 

064560 

064566 

064572 

064576 

064604 

064612 

064620 

064626 

064634 

064642 

064650 


064654 

064662 

064670 


064676 

064702 

064710 

064716 

064722 

064730 

064736 

064744 

064752 

064760 

064766 

064770 

0o4774 

064776 

065000 

065006 


113760 

005060 

012760 

012760 

113760 

005060 

012760 

012760 


113760 

C13737 

005060 

013737 

012760 

012760 

113760 

013737 

004737 

113760 

013737 

005060 

005060 

013760 

113760 

013737 

012760 

012760 

113760 

013737 

004737 


113760 

013737 

012760 


005037 

012737 

012737 

060037 

113760 

013737 

016037 

113760 

013737 

016037 

001404 

005737 

001401 

104031 

013737 

013737 


001224 

000012 

000011 

000013 

001226 

000012 

000011 

000013 


001226 

001226 

000012 

001224 

177777 

177777 

001224 

001224 

065406 

001226 

001226 

000042 

000014 

001236 

001224 

001224 

177777 

177777 

001226 

001226 

065406 


001226 

001226 

000013 


00 1 254 

111700 

000012 

001122 

001224 

001224 

000012 

001226 

001226 

000012 

001164 


001164 

001224 


000010 

000000 

000000 

000010 

000000 

000000 


000010 

001242 

001244 

000014 

000042 

000010 

001240 

000010 

001240 


000016 

000010 

001240 

000014 

000042 

000010 

001240 


000010 

001240 

000000 


001124 

001122 

000010 

0^1240 

001164 

000010 

001240 

001126 


001126 

001240 


MQV6 PORTA, RMCS2CR0) 

CLR RMDS(RO) 

MOV #1 1 .RMCS1 (RO) 

MOV #13,RMCS1(R0) 

M0V8 PORT8.RMCS2CRO) 

cut RMDS(RO) 

MOV #11 ,RMCS1 (ROJ 

MOV #13,RHCS‘: T R0) 

.SEIZE THE DRIVE THROUGH PORT B 


SELECT PORT #A 
SEIZE THE DRIVE 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 
SELECT PORT #B 

SEIZE THE DRIVE THROUGH PORT ’B* 
ISSUE DRIVE CLEAR 
RELEASE THE DRIVE 


MOVB 

MOV 

CLR 

MOV 

MOV 

MOV 

MOVB 

MOV 

JSR 

MOVB 

MOV 

CLR 

CLR 

MOV 

MOVB 

MOV 

MOV 

MOV 

MOVB 

MOV 

JSR 


PORTB,RMCS2(R0) .'SELECT PORT B 

PORTB.SEIZPT .STORE SEIZING PORT’S ADDRESS 

RW>S(RO> ; WRITE RMDS 

PORTA. OPPRT .-’OPPOSITE’ PORT ADDRESS 

#-1. RMERKRO) .'LOAD 1’S INTO RMER1 THROUGH PORT B 

#-1 .RMER2CR0) .'LOAD VS INTO RMER2 THROUGH PORT B 

PORTA. RHCS2CR0) ;SELECT PORT A 

PORTA. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PC.TST51B .'CHECK THE REGISTERS THROUGH PORT A 

PORTS. RMCS2CR0) .'SELECT PORT B 

PORTS. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
RMER2CR0) .CLEAR RMER2 ON PORT B 

RMERKRO) .'CLEAR RMER1 ON PORT B 

ASR1 .RMAS(RO) .'CLEAR THE ATTENTION BIT FOR PORT B 
PORTA, RMCSc(RO) .SELECT PORT A 

PORTA, PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
#-1, RMERKRO) .'LOAD 1’S INTO RMER1 THROUGH PORT A 

#-1,RMER2(R0) .'LOAD 1’S INTO RHER2 THROUGH PORT A 

PORTB,RMCS2(RO) ;SELECT PORT B 

P0RT8.PTNBR ,'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 
PC.TST51B .'CHECK THE REGISTERS THROUGH PORT 8 


.'RELEASE THE DRIVE FROM PORT B 

MOVB PORTS, RNCS2CR0) ;SELECT PORT B 

MOV PORTB. PTNBR .'MOVE PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV #13,RMCS1 (RO) .'ISSUE RELEASE THROUGH PORT B 

.VERIFY THAT DRIVE IS SEIZED BY PORT A WHFN RELEASED BY PORT B 

CLR RELERR .'CLEAR ’RELEASE ERROR* INDICATOR 

MOV #ATA!M0L1PG«!DPr1dRY!VV,SGDDAT .'COMPARISON CONSTANT 

MOV #RMDS , SBD.ADR .'REGISTER ADDRESS INCREMENT 

ADD RO.SBDADR .-REGISTER BASE ADDRESS FOR TYPEOUT 

MOVB PORTA, RNCS2LR0) iSELECT PORT A 

MOV PORTA, PTNBR ;MOVl PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV R»S<60),STNP6 .'READ STATUS REGISTER FROM PORT A 

MOVB PORTB, RMCS2(R0) ;SELECT PORT B 

MOV PORTB. PTNBR ;MOV§ PORT ADDRESS TO LOCATION FOR TYPEOUT 

MOV RMDS(RO).SBDDAT ;DRIVE STATUS FROM PORT B _ 


66$ 

$TMPO 

66 $ 

31 

$TMPO,SBDDAT 
PORTA. PTNBR 


;BR IF STATUS FROM PORT B ZERO 
;IS STATUS FROM PORT A ZERO ? 

;BR IF ZERC 

.'CHECK STATUS FROM PORT A 
.'CHANGE PORT ADDRESS FOR TYPEOUT 
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06501 A 023737 001124 001126 
065022 001401 
065024 104027 

065026 000240 


67$: 


CMP 

BEQ 

EMT 

NOP 


SGDDAT.SBDDAT 

67$ 

27 


.•COMPARE WITH CONSTANT 
;8R IF OK 


CZR 

BIN 


.RELEASE THE DRIVE FROM PORT A 


065052 
065056 
065064 
065070 
065076 
065104 
065112 
065120 
065126 
065134 
065142 
065150 
065156 
065164 
065172 
065200 
065202 
065206 
065210 
065212 
065216 
065224 
065232 
065240 
065244 
065246 
065254 
065262 
065270 
065274 
065276 
065304 
065312 
065320 
0653, 
06532 
06532 
065344 
065346 
065350 
065356 
065364 
065372 
065374 


005037 

012737 

060037 

012737 

113760 

016037 

042737 

013737 

042737 

113760 

016037 

042737 

013737 

042737 

023737 

001006 

005737 

001045 

104046 

000137 

013737 

013737 

113760 

005737 

001414 

013737 

013737 

113760 

005737 

m 

012760 
012760 
104026 
013737 
013737 
023737 
001 4C1 
1C40Q7 
013737 
013737 
023737 
001401 
104007 


001224 

000010 


movb 

001224 

001240 


NOV 

000013 

000000 


NOV 



.-VERIFY 

THAT 

001254 



CLR 

000012 

001122 


MOV 

001122 



ADD 

011700 

001124 


MOV 

001224 

000010 


MOVB 

000012 

001170 


MOV 

024001 

001170 


BIC 

001170 

001164 


MOV 

100100 

001164 


BIC 

001226 

000010 


MOVB 

000012 

001172 


MOV 

024001 

001172 


BIC 

001172 

001166 


MOV 

100100 

001166 


BIC 

001164 

001166 


CMP 

QftiC 

001164 



sue 

TST 




BNE 




EMT 

065376 



JMP 

001170 

001126 

68$: 

MOV 

001226 

001240 


MOV 

001226 

000010 


MOVB 

001164 



TST 




BEQ 

001224 

001240 


NOV 

001172 

001126 


MOV 

001224 

000010 


MOVB 

001166 



TST 




BNE 

177777 

001254 

69$: 

MOV 

000011 

000000 


MOV 

000013 

090000 


MOV 




EMT 

001170 

001126 

70$: 

MOV 

001224 

001240 


MOV 

001124 

001126 


CMP 




BEO 




EMT 

001172 

001126 

71$: 

MOV 

00122 6 

001240 


MOV 

001124 

001126 


CMP 




BEQ 




EMT 


PORTA, RHCS2(R0) ; SELECT PORT A 

PORTA. PTNBR ;N0V§ PORT ADDRESS TO LOCATION FOR TYPEOUT 
#13,RMtS1 (RO) .-ISSUE RELEASE THROUGH PORT A 


RELERR .-CLEAR THE 'RELEASE ERROR ' INDICATOR 

ffRMDS.SBDADR .‘FORM THE ADDRESS OF RMDS FOR TYPEOUT 
RO,$BDADR ;ADD THE I/O BASE ADDRESS 

#NOL PGM! DPR ! DRY! VV ,$GDDAT .-COMPARISON CONSTANT 
PORTA, RMCS2CR0) ; SELECT PORT A. 

RMDS(R0).$TMP2 :6ET THE DRIVE STATUS REGISTER FROM PORT A. 
#PIP!WRL!0N,$TMP2 .'CLEAR DONT CARES 

STMP2.STMP0 ;COPY IT INTO 'STNPO' 

#ATA!VV.$TMPO .-CLEAR PORT DEPENDENT BITS FROM THE COPY 
PORTS, RNCS2CR0) .-SELECT PORT B. 

RMDS(RO) ,$TMP3 :GET THE DRIVE STATUS REGISTER FROM PORT B. 
#PIP!WRL!0M,$TMP3 .-CLEAR DONT CARES 


$TMP3.$TMP1 
*ATA!W.$TNP1 
$TMP0.$TMP1 
68 $ 

$TMPO 

70$ 

46 

72$ 

$TMP2,$BDDAT 
PORTS, PTNBR 
PORTS, RMCS2(R0) 
$TMPO 
69$ 

PORTA, PTNBR 

$TMP3.S8DDAT 

PORTA, RMCS2(R0) 

$TMP1 

70$ 

#-1 .RELERR 
fll.RMCSKRO) 
#13,RMCS1 (RO) 

26 

$TMP2,$80DAT 
PORTA.PTNBR 
$GDDAi ,$8DDAT 
71$ 

7 

$TMP3,$BDDAT 
PORTS, PTNBR 
$GDDAT.$BDDAT 

72$ 

7 


COPY IT INTO ' $TMP1 ' 

CLEAR PORT DEPENDENT BITS FROM THE COPY 

IS THE STATUS REGISTER THE SAME FROM BOTH PORTS ? 

BR IF NOT 

REGISTERS ARE 1HE SAME: ARE THEY ZERO ? 

8R IF NOT 

BYPASS THE REST OF THE CHECKS 
SET UP POSSIBLE BAD DATA FOR ERROR MESSAGE 
SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
SELECT PORT B. 

SEE IF STATUS EQ 0 FROM PORT A. 

BR IF ZERO 

SEIZING PORT IF TEST SHOWS DRIVE NOT IN NEUTRAL 
'BAD DATA' FOR ERROR TYPE OUT 
SELECT PORT A. 

SEE IF STATUS EQ ZERO FROM PORT B. 

BR IF NOT 

SET 'RELEASE ERROR' INDICATOR 
CLEAR THE DRIVE 
RELEASE THE DRIVE 

LOOK FOR BIT FAILURES WHEN RMDS READ 
CHANGE PORT NUMBER 
ALL BITS OK ? 

BR IF OK FROM PORT A. 

CHECK RMDS FOR BIT FAILURES - FROM PORT B. 

CHANGE PORT NUMBER 

SEE IF READ OK FROM PORT B. 

BR IF OK 
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065376 
065400 
1776 065402 


065406 

065406 

065412 

065420 

065426 

065432 

065436 

065444 

065446 

065450 

065454 

065462 

065470 

065474 

065502 

065504 

065506 

065514 

065516 

065522 

065530 

065536 

065542 

065546 

065554 

065556 

065560 

065564 

065572 

065600 

065604 

065612 

065614 

065616 

065624 

065626 

1777 

1778 

1779 

1780 


000240 

Oc8??7 065630 


72*: 


TST51B: 


HOP 

SCOPE 

JAP TST52 


.LOOP ? 

;G0 TO THE NEXT TEST 


005037 

001250 



CLR 

016037 

000014 

001126 


MOV 

012737 

000014 

001122 


MOV 

060037 

001122 



ADD 

005037 

001124 

001126 


CLR 

023737 

001124 


CMP 

001403 




BEQ 

104006 




EMT 

005137 

001250 



COM 

016037 

000000 

001126 

64* : 

MOV 

012737 

000000 

001122 


MOV 

060037 

001122 



ADD 

032737 

020000 

001126 


BIT 

001404 




BEQ 

104011 




EMT 

012760 

040000 

000000 


MOV 

000240 



65S: 

NOP 

005037 

001250 



CLR 

016037 

000042 

001126 


MOV 

012737 

000042 

001122 


MOV 

060037 

001122 



ADD 

005037 

001124 



CLR 

023737 

001124 

001126 


CMP 

001403 




BEQ 

104006 




EMT 

005137 

001250 



COM 

016037 

000000 

001126 

66S : 

MOV 

012737 

000000 

001122 


MOV 

060037 

001122 



ADD 

032737 

020000 

001126 


BJT 

001404 




BEQ 

104011 




EMT 

012760 

040000 

000000 


MOV 

000240 



67S: 

NOP 

000207 




RTS 


.•CHECK THE REGISTERS ON THE SELECTED PORT 


CKERR .-CLEAR (HE 'CHECK ERROR* INDICATOR 

RMERKRO). SBDDAT ;GET CONTENTS OF RMER1 
#RMER1 .SBDADR .'FORM REGISTER ADDRESS OF ERROR MESSAGE 
R0.S8DADR ;ADD RH/RM BASE ADDRESS 

SGDDAT ;WHAT REGISTER SHOULD BE 

SGDDAT.SBDDAT ;IS THE REGISTER OK ? 

64* ;BR IF OK 

6 

CKERR .'SET THE REGISTER COMPARE ERROR INDICATOR 

RMCS1 (RO) ,*BDDAT .'GET THE CONTENTS OF RMCS1 
#RMCS1 .SBDADR .'FORM ADDRESS OF REGISTER 

.'ADDRESS BASE 
;IS ’MCPE* SET ? 

;BR IF NOT 


RO. SBDADR 
#MCPE. SBDDAT 
65* 

11 

#TRE,RMCS1<R0> 


CKERR 
RMER2(R0).*6DDAT 
ARMER2.SBDADR 
RO, SBDADR 
SGDDAT 

SGDDAT.SBDDAT 
66 * 

6 

CKERR 
RMCS1 (RO) .SBDDAT 
fRMCSI .SBDADR 
RO. SBDADR 
#MCPE, SBDDAT 
67$ 

11 

fTRE.RMCSI (RO) 

PC 


.-CLEAR 'MCPE* 

.'CLEAR THE 'CHECK ERROR' INDICATOR 
;GET CONTENTS OF RMER2 
FORM REGISTER ADDRESS OF ERROR MESSAGE 
ADD RH/RM BASE ADDRESS 
WHAT REGISTER SHOULD BE 
IS THE REGISTER OK ? 

BR IF OK 

;SET THE REGISTER COMPARE ERROR INDICATOR 
.'GET THE CONTENTS OF RMCS1 
.'FORM ADDRESS OF REGISTER 
.•ADDRESS BASE 
;IS ’MCPE' SET ? 

;BR IF NOT 

.•CLEAR 'MCPE' 

.•RETURN 


065630 000004 


PUT NEWTEST HERE 
•***************< 

TST52: SCOPE 
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SEQ 0167 


1 


065632 

065632 

065636 

065640 

065644 

065650 

065654 

065660 

065666 

065670 

065672 

065674 

065676 

065700 

065702 

065706 


065726 

065726 

065732 

065734 

065740 

065742 

065746 

066012 

066012 

066016 

066020 

066030 
066034 
066036 
066040 
0661 " 
066C 
066C 
066C 
066050 
066052 
066054 


.S8TTL END OF PASS ROUTINE 


•INCREMENT T^E PASS NUMBEP (SPASS) 

♦INDICATE END-OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 

♦TYPE 'END PASS fXXXXX TOTAL NUMBER OF ERRORS SINCE LAST REPORT YYYYY 

♦WHERE XXXXX AND YYYYY ARE DECIMAL NUMBERS 

♦IF THERES A MONITOR GO TO IT 

♦IF THERE ISN'T JUMP TO TST1AA 


005737 

001402 

C00137 

005037 

005037 

005237 

042737 

005327 

000001 

003066 

012737 

000001 

065670 

104401 

000407 


013746 

104405 

005737 

001431 

104401 

000421 


013746 

104405 

005037 

104401 

013700 

001405 

000005 

004710 

000240 

000240 

000240 

000137 

003346 

377 


001300 

003062 

001102 

001176 

001100 

100000 


SEOP: 


001100 


TST KVBCTL 

eEQ .+6 

JMP EXEC 

CLR STSTNM 

CLR STIMES 

INC SPASS 

BIC # 100000, SPASS 

DEC IPC)+ 


.•ENTERED TEST VIA KEYBOARD COMMAND ? 
*BR IF NOT 

•RETURN TO KEYBOARD CONTROL 
;;ZERO THE TEST NUMBER 
.-.ZERO THE NUMBER OF ITERATIONS 
;; INCREMENT THE PASS NUMBER 
; ; DON ' T ALLOW A NEG. NUMBER 
;;LQOP? 



SEOPCT: .WORD 

1 

;;YES 


BGT 

SDOAGN 


MOV 

(PC)+,i(PC)+ 

; .-RESTORE COUNTER 


SENDCT: .WORD 

1 


065710 

SEOPCT 

TYPE 

,65S 

.-.-TYPE ASCIZ STRING 

BR 

64S 

;;GET OVER THE ASCIZ 


; ;65S: .ASCIZ 

<12><15>/END PASS #/ 


64S: 


.-.-SAVE SPASS FOR TYPEOUT 

001100 

MOV 

SPASS. -(SP) 

;;TYPE PASS NUMBER 


TYPDS 


;;G0 TYPE— DECIMAL ASCII WITH 

001112 

TST 

SFRTTL 

;;SEE IF ANY ERRORS THIS PASS 

BEQ 

SGT42P 

;;8R IF NO ERRORS TO REPORT 

065750 

TYPE 

.67$ 

.-.-TYPE ASCIZ STRING 

BR 

66S 

;;GET OVER THE ASCIZ 


;;67S: .ASCIZ 

/ TOTAL ERRORS 

SINCE LAST REPORT / 

001112 

66S: 

MOV 

SERTTL, -<SP> 

;;SAVE SERTTL FOR TYPEOUT 
;; TOTAL NUMBER OF ERRORS 


TYPDS 


;;G0 TYPE— DECIMAL ASCII WITH 

001112 

CLR 

SERTTL 

;; CLEAR ERROR TOTAL 

001207 

SGT42P: TYPE 

.SCRLF 

.-.-TYPE CARRIAGE RETURN. LINE 

000042 

SGET42: MOV 

i#42.R0 

;;GET MONITOR ADDRESS 

BEQ 

SDOAGN 

;;BRANCH IF NO MONITOR 


RESET 

;; CLEAR THE WORLD 


SENDAD: JSR 

PC.CRO) 

; ; GO TO MONITOR 


NOP 


.-.-SAVE ROOM 


NOP 


;;F0R 


NOP 


; ; ACT1 1 


SDOAGN: 


.-.’RETURN 


JMP 

i(PC)+ 


SRTNAD: .WORD 

TST1AA 

;;NULL CHARACTER STRING 

377 

000 SENULL: .BYTE 

-1.-1 ,0 


.EVEN 
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SEQ 0166 
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066060 

066066 

066072 

066076 

066102 

066106 

066112 

066120 

066126 

066130 

066134 

066142 

066146 

066152 

066156 

066162 

066170 

066172 

066176 

066202 

066210 




066234 

066236 

066244 

066246 

066252 


066254 

066260 

066264 

066266 

tffi 

066300 

066302 

06630 

06631 


012737 
005037 
005777 
013^01 
012721 
012711 
012777 
012777 
000425 
062706 
012737 
005777 
013701 
Cl 2721 

01 $} 

000404 

062706 

062716 

012737 

000207 


062737 

103003 

012737 

005737 

001406 

162737 

100002 

005037 

000002 


162706 

016616 

013546 

011666 

011666 

006216 

006216 

061666 

162666 

000205 


.ROUTINE TO CHECK FOR KW11-L OR KW11-P CLOCKS 
;IF CLOCK IS PRESENT. THE CLOCK WILL BE STARTED 


066130 

000004 

CKCLK: MOV 

fCKCLXl .BtERRVEC 

000006 


CLR 

a#ERRVEC*2 

113114 


TST 

iSLKCSR 

001216 


MOV 

SLPVEC.R1 

066212 


MOV 

#CLOCK,<R1)+ 

000300 


MOV 

#300, (R1) 

177777 

113074 

MOV 

f-I.BSLKCSB 
#135. iSLKCSR 

000135 

113064 

NOV 


BR 

CKCLK3 

000004 


CKCLK 1 : ADD 

#4,SP 

066172 

000004 

MOV 

#CKCLK2,B#ERRVEC 

113052 


TST 

iSLKS 

001222 


MOV 

SLLVEC.R1 

066212 


MOV 

#CLOCK,(R1H 

000300 


MOV 

#300. (R1) 

000100 

113030 

MOV 

#100. iSLKS 


BR 

CKCLK3 

000C04 


CKCLK 2: ADD 

#4,SP 

000002 


ADD 

#2,(SP) 

000006 

000004 

CKCLK3: MOV 

#6.i#ERRVEC 



RTS 

PC 


.-ROUTINE TO COUNT CLOCK TICKS 


000021 

001256 

CLOCK: 

ADD 

#17., TIME 




BCC 

IS 

177777 

001256 


MOV 

#-1 .TIME 

001260 


IS: 

TST 

WATCH 



BEQ 

2S 

000021 

001260 


SUB 

#17., WATCH 



BPL 

2S 

001260 



CLR 

WATCH 


2$: 

RTI 



;SET UP VECTOR FOR CLOCK CHECK 
;NEW PSW 
CHECK FOR KW11-P 
KW11-P VECTOR ADDRESS 
SET UP KW11-P VECTOR 
PSW - PRI 6 

LOAD COUNTER BUFFER WITH VS 
SET CLOCK - CNT UP. 16MS. CONT INT 

RESTORE THE STACK POINTER 
.■CHANGE ERROR VECTOR TO CHECK FOR KW11-L 
LOOK FOR KW11-L 
KWll-L VECTOR ADDRESS 
SET UP KW11-L VECT^I 
PSW - PRI 6 
SET KW11-L INTERRUP. 

RESTORE THE STACK POINTER 
INCREMENT RETURN. NO CLOCK 
RESTORE THE ERROR VECTOR 


;ADD 17 MS TO ELAPSED TIME COUNTER 
.-BRANCH IF NO OVERFLOW 
.-OVERFLOW - RESTORE MAXIMUM COUNT 
;IS WATCH ALREADY ZERO ? 

;BR IF IT IS 

.'SUBTRACT 17 MS FROM WATCH DOG COUNTER 

;8R IF NOT MINUS 

.'CLEAR WATCH DOG COUNTER 

.'RETURN 


.'ROUTINE TO CALCULATE ♦ AND - 25X TIME TOLERANCE VALUES 


000004 

TOLER: SUB 

#4.SP 

000004 

MOV 

4(SP) , (SP) 

MOV 

a<R5)*,-(SP) 

000004 

MOV 

(SP) ,4(SP) 

000006 

MOV 

(SP) ,6(SP) 

A SR 

(SP) 


ASR 

(SP) 

000004 

ADD 

(SP) ,4(SP) 

000004 

SUB 

(SP)*,4(SP) 


RTS 

R5 


SETUP STACK 
SAVE STACK 
GET TIME VALUE 
MOVE TIME VALUE 
MOVE VALUE AGAIN 
DIVIDE BY 2 

DIVIDE BY 2 AGAIN (FOR A TOTAL OF 4) 
CALCULATE UPPER LIMIT FOR TIMEOUT 
CALCULATE LOWER LIMIT FOR TIMEOUT 
RETURN WITH TOLERANCES ON THE STACK 
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SEQ 0169 


066314 

066314 

066316 

066322 

066330 

066332 

066336 


066340 

066344 

066352 

066356 


066374 

066374 


104407 

004737 

032777 

001402 

000137 


066336 000416 


013746 

012737 

005737 

omsr 





042777 

104177 

012676 

012637 


•THIS ROUTINE CONTROLS THE L00PIN6 OF SUBTESTS. IT WILL INCREMENT 
•AND LOAD THE TEST NUMBER (STSTW) INTO THE DISPLAY RE6. (DISPLAY<7:0» 
•AND LOAD THE ERROR FLAG (SERFL6) INTO DISPLAYS S:08> 

•THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

•SWl 4=1 LOOP ON TEST 

*SW11=1 INHIBIT ITERATIONS 

•CALL 

• SCOPE ;;SCOPE=IOT 


066650 

040000 


112610 


000137 066632 


000004 

066364 

177060 

000004 


000004 


000004 


105737 001103 


177777 067220 


000004 

066434 

177766 

177777 

066450 

000004 


000004 

067220 

067220 


177777 067220 
000001 067220 
000001 177766 


tSCOPE : 

CKSWR 

JSR 

1$: BIT 

BEQ 
JMP 
9$: 

;#####START OF 
SXTSTR: BR 

MOV 

MOV 

TST 

MOV 

BR 

5$: CMP 

MOV 
BR 

6$:;#####END OF 
2$: TSTB 

BEQ 
CMP 
BEQ 
MOV 
MOV 
MOV 
6H 

2000$: MOV 
MOV 
RTI 

2001$: MOV 

2002$: CMP 
BEQ 


PC, STOP 

#8IT14,aSWR 

9$ 

$0VER 


;;TEST FOR CHANGE IN SOFT-SWR 

;;LOOP ON PRESENT TEST? 

;;NO IF SW14=0 
; ; JUMP OVER SCOPE ROUTINE 


CODE FOR THE XOR TESTER##### 


112414 

001000 


001140 

112406 


8#ERRVEC,-(SP) 
#5$,S#ERRVEC 
B#1 77060 
(SP) +.a#ERRVEC 
$SVLAD 
(SPH,(SP) + 
(SPH.a# ERRVEC 
SOVER 

CODE FOR THE XOR 

$ERFLG 

3$ 

#-1 .CPSAVE 

200 $$ 

ERRVEC, -(SP) 
#2000$, ERRVEC 
1 77766, CPSAVE 
2001 $ 

#-1 .CPSAVE 
#2061$, (SP) 

(SPH, ERRVEC 

#-1. CPSAVE 

200 $$ 

#81 TOO. CPSAVE 
2003$ 

#BI TOO. 177766 

SWR.-(SP) 

B(SP).-(SP) 

#176, SWR 
(SP) .aswR 
#6ir09,aswR 

(SP)+,a(SP) 
(SP)+, SWR 


IF RUNNING ON THE "XOR" TESTER CHANGE 
THIS INSTRUCTION TO A *NOP" (N0P=240) 

SAVE THE CONTENTS OF THE ERROR VECTOR 
SET FOR TIMEOUT 
TIME OUT ON XOR? 

RESTORE THE ERROR VECTOR 

60 TO THE NEXT TEST 

CLEAR THE STACK AFTER A TIME OUT 

RESTORE THE ERROR VECTOR 

LOOP ON THE PRESENT TEST 

ESTER##### 

HAS AN ERROR OCCURRED? 

BR IF NO 

SEE IF TIMEOUT WAS PREVIOUSLY RECORDED 

KICK AROUND ROUTINE IF SO 

SAVE CONTENTS OF ERROR VECTOR 

SETUP 'TRAP* RETURN ADDRESS 

MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

SET CPU ERROR REGISTER TIMEOUT INDICATOR 
SETUP RETURN ADDRESS 

RESTORE CONTENTS OF ERROR VECTOR 

SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 
BRANCH IF SO 

SEE IF THE POWER MONITOR BIT IS ON 

BRANCH TO CONTINUE ROUTINE IF CLEAR 

CLEAR THE BIT FOUND TO BE SET 

SAVE SWR ADDRESS 

SAVE SWR VALUE 

GET SOFTWARE SWR ADDRESS 

GET CURRENT SWR VALUE 

DON'T ALLOW LOOP ON ERROR ON THIS ERROR 

CALL SPECIAL POWER FAIL BIT ERROR CALL 

RESTORE SWR TO ORIGINAL VALUE 

RESTORE SWR ADDRESS 


SEQ 01 70 
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066544 

066544 

066550 

066554 

066562 

066564 

066570 

066572 

066576 

066604 

066606 

066614 

066622 

066626 

066632 

066640 

066644 

066646 


5 066650 
066650 
066654 
066660 
066662 

6 

7 

8 

9 066662 
O 66066 
066672 
066674 
10 066674 


105037 

005037 

032777 

001011 

005737 

001406 

005237 

023737 

002012 

012737 

013737 

105237 

011637 

013777 

013716 

000002 

000005 


001103 

001176 

004000 

001100 

001104 

001176 

000001 

066646 

001102 

001106 

001102 

001106 


112356 


001104 

001104 

001176 


112302 


2003$: 

4$: CLR 8 

CLR 

3$: BIT 

BNE 
TST 
BEQ 
INC 
CMP 
BGE 

1$: MOV 

MOV 

SSVLAD: INCB 
MOV 

SOVER: MOV 
MOV 
RTI 

SMXCNT : 5. 


SERF LG 
STIMES 
#8IT11,aSWR 
IS 

SPASS 

IS 

SICNT 

STIMES, SICNT 
SOVER 
#1 .SICNT 
SMXCNT, STIMES 
STSTNM 
(SP).SLPADR 
STSTNM. 8 DISPLAY 
SLPADR.(SP) 


; .'ZERO THE ERROR FLAG 

;; CLEAR THE NUMBER OF ITERATIONS TO MAKE 

;; INHIBIT ITERATIONS? 

;; 8 R IF YES 

;;IF FIRST PASS OF PROGRAM 
;; INHIBIT ITERATIONS 

;; INCREMENT ITERATION COUNT 
;; CHECK THE NUMBER OF ITERATIONS MADE 
. BR IF MORE ITERATION REQUIRED 
.^REINITIALIZE THE ITERATION COUNTER 
;;SET NUMBER OF ITERATIONS TO DO 
;; COUNT TEST NUMBERS 
; ; SAVE SCOPE LOOP ADDRESS 
;; DISPLAY TEST NUMBER 
;; FUDGE RETURN ADDRESS 
; .-FIXES PS 

;;MAX. NUMBER OF ITERATIONS 


.-DROP PRIORITY TO ALLOW CONSOLE INTERRUPT 


012746 000140 
012746 066662 
000002 


012746 000240 
012746 066674 
000002 


000207 


#PR3,-(SP) ;;PUT NEW PS ON STACK 

#64$,- (SP) ;;PUT NEW PC ON STACK 

;;POP NEW PC AND PS 


.-RAISE PRIORITY TO INHIBIT CONSOLE INTERRUPT 

MOV #PR5.-(SP) ;;PUT NEW PS ON STACK 

MOV #65$, -(SP) ;;PUT NEW °C ON STACK 

RTI ;;POP NEW PC AND PS 

65$: 

RTS PC .-RETURN 


C2RNHA0 RM80 DUAL PORT PI 1 MACRO V04.00 15-JAN-82 07:09:22 PAGE 13 
ERROR HANDLER ROUTINE 

1 . S8TTL ERROR HANDLER ROUTINE 


SEO 0171 


066676 

066702 

066704 

066712 

066716 

066720 

066726 

066734 

066736 

066742 

066746 

066752 

066760 

066766 

066774 

066776 

067004 

067006 

067012 

067014 

067022 

067024 

067030 

067036 

067044 

067046 

067054 

067060 

067062 

067066 

067074 

067076 

067104 

067106 

067114 

067122 

067130 

067132 

067136 

067136 

067144 

067146 


105037 

104407 

113737 

105237 

001775 

013777 

032777 

001402 

104401 

005237 

011637 

162737 

117737 

032777 

001060 

122737 

001454 

105737 

001047 

022737 

001445 

013746 

012737 

013737 

000406 

012737 

012716 

000002 

012637 

022737 

001420 

032737 

001414 

042737 

113737 

112737 

000402 


067222 

001102 

001103 

001102 

002000 

001202 

001112 

001116 

000002 

112132 

001000 


001246 


112214 

112204 


001116 

001114 

112144 


000177 001114 
067222 

177777 067220 


000004 

067046 

177766 

177777 

067062 

000004 


000004 

067220 

067220 


•THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
•SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
•AND GO TO SERRTYP ON ERROR 

•THE SWITCH OPTIONS PROVIDED 8Y THIS ROUTINE ARE: 

•SW1 5=1 HALT ON ERROR 

•$W13=1 INHIBIT ERROR TYPEOUTS 

*SW10=1 BELL ON ERROR 

•CALL 

* ERROR N ;;ERROR=EMT AND N-ERROR ITEM NUMBER 


000001 

001114 

000177 


105037 067222 


SERROR: CLR8 
CKSWR 

Move 

7$: INCB 

BEQ 
MOV 
BIT 
BEQ 
TYPE 
IS: INC 

MOV 
SUB 
MOVB 
BIT 
BNE 
CMP8 
BEQ 
TSTB 
BNE 
CMP 
BEQ 
MOV 
MOV 
MOV 
BR 

1000S: MOV 
MOV 
RTI 

1001$: MOV 


177777 067220 1002$: 
000001 067220 


177766 

067222 

001114 


032777 

001004 

004737 


020000 111774 
067224 


1003$: CLRB 
1004$: 

BIT 

BNE 

JSR 


IBSAVE 

STSTNH,TSTNUM 

SERFLG 

7$ 

$TSTNM,SDISPLAY 

#BIT10.aSWR 

1 $ 

,SBELL 

SERTTL 

(SP), SERRPC 

#2.$E RRPC 

»$ERRPC,SITEMB 

«8IT09,aSWR 

1004$ 

#177,$ITEMB 

1004$ 

IBSAVE 

1003$ 

#-1 ,C°SAVE 
1004$ 

ERRVEC.-CSP) 
#1000$.ERRVEC 
1 77766, CPSAVE 
1001 $ 

#-1 .CPSAVE 

#io6i$,<sp> 


; .-CLEAR THE ITEM BYTE SAVE LOCATION 
;;TEST FOR CHANGE IN SOFT-SWR 

;;SET THE ERROR FLAG 
;; DON'T LET THE FLAG GO TO ZERO 
; .-DISPLAY TEST NUMBER AND ERROR FLAG 
;;BELL ON ERROR? 

;;NQ - SKIP 
.-.-RING BELL 

.-.-COUNT THE NUMBER OF ERRORS 
.’.-GET ADDRESS OF ERROR INSTRUCTION 

;; STRIP AND SAVE THE ERROR ITEM CODE 

;;SEE IF LOOP ON ERROR IS SET 

.’.’BRANCH AROUND ROUTINE IF SO 

.’.’SEE IF THIS IS THE POWER FAIL CALL 

.-.•BRANCH AROUND ROUTINE IF IT IS 

.’.’SEE IF THIS IS THE 2ND ERROR CALL IN THIS ROUTINE 

* * BRANCH IF SO 

••SEE IF CPSAVE HAS CPU ERR REG TIMEOUT INDICATION 

. •DDAM ru re rn 

••SAVE CONTENTS OF ERROR VECTOR 

; .’SETUP 'TRAP* RETURN ADDRESS 

.-.’MOVE CPU ERROR REGISTER TO CPSAVE FOR TEST 

;;SET CPU ERROR REGISTER TIMEOUT INDICATOR 
;; SETUP RETURN ADDRESS 


(SP)*.ERRVEC ;; RESTORE CONTENTS OF ERROR VECTOR 


#-1, CPSAVE 
1004$ 

#81 TOO. CPSAVE 
1004$ 

#81 TOO. 177766 
$iTEMB. IBSAVE 
#1 77,$ITEMB 
1004i 

IBSAVE 

#8IT13.aSUR 

20 $ 

PC.$ERRTYP 


.’.’SEE IF CPSAVE HAS CPU FRR REG TIMEOUT INDICATION 
.’.’BRANCH IF SO 

;;SEE IF POWER MONITOR BIT IS SET IN CPU ERR REG 

.’.‘BRANCH IF OK 

;; CLEAR THE BIT FOUND SET 

.-.-MAKE IBSAVE NON-ZERO FOR DUAL ERROR CALL 

;;SET SITENB TO SPECIAL POWER FAIL POINTER 

.-.-BRANCH OVER IBSAVE CLEARING 

.-.‘CLEAR IBSAVE SO 2ND TIME THROUGH EXITS 

.-.SKIP TYPEOUT IF SET 
.-.-SKIP TYPEOUTS 
; ; GO TO USER ERROR ROUTINE 



SEQ 0172 


.'.•SEE IF IBSAVE IS LOADED 

.'.'BRANCH IF MOT - NO HALT ON PWR HON BIT ERROR 
;;HALT ON ERROR 
;;SICIF If CONTINUE 
.-.-HALT ON ERROR! 

.'.'TEST FGR CHANGE IN SOFT-SWR 

; .ACT-11 AUTO-ACCEPT? 

; .'BRANCH IF NO 
;;YES 

;;SEE IF I TEN BY1E SAVE LOCATION HAS AN ERROR CALL 
.-.'BRANCH BACK TO CALI ORIGINAL ERROR 
* 'RETURN 

;; LOCATION TO SAVE CPU ERROR REG CONTENTS 
.'.'LOCATION TO SAVE ITEN BYTE 


t H 


SEQ 0173 
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06 7224 
067224 
067230 
067232 
067234 
067240 


104401 

010046 

005000 

153700 

001004 


067242 013746 


067246 

067250 

067252 

067256 

067260 

067266 

067272 

067274 

067276 

067300 

067302 

067304 

067310 

067314 


067404 

067406 


104402 

000456 

122700 

001006 

113737 

012700 

000406 

005300 

006300 

006300 

006300 

062700 

012037 

001404 

104401 

000000 

104401 

012037 

001404 

104401 

000000 

104401 

010146 

012001 

001415 

012000 

105720 

001003 

013146 

104402 

000402 

013146 

104405 

005711 

001403 

104401 

000764 

012601 

012600 


001207 

001114 

001116 

000177 

001102 067562 
067422 


001310 

067320 


001207 

067336 


001207 


067416 


.•'•A************************************************************** 

;*THIS ROUTINE USES THE “ITEM CONTROL BYTE" (SITEMB) TO DETERMINE WHICH 
.-•ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE 'ERROR TABLE’* (SERRTB), 
;*AND REPORTS THE APPROPRIATE INFORMATION CONCERNING THE ERROR. 

SERRTYP: 



TYPE 

,SCRLF 


NOV 

RO, -(SP) 


CLR 

RO 


BIS6 

8ttITEMB.R0 


BNE 

1$ 


NOV 

SERRPC. -(SP) 


TYPOC 

BR 

10$ 

IS: 

CMPB 

#177,R0 


BNE 

ioooi 


M0V8 

STSTNM.PFTSTN 


MOV 

#PF ECH.RO 


BR 

1001$ 

1000S: 

DEC 

RO 


ASL 

RO 


ASL 

RO 


ASL 

RO 


ADD 

ttERRTB.RO 

1001$: 

MOV 

(R0J+.2S 


BEQ 

3$ 

2$: 

TYPE 

.WORD 

0 

3$: 

TYPE 

.SCRLF 

MOV 

(R0)+,4$ 


SEQ 

5$ 

4$: 

TYPE 

.WORD 

0 


TYPE 

.SCRLF 

5$: 

NCv 

R1 .-(SP) 


MOV 

(R0)*.R1 


BEO 

9$ 


MOV 

(ROM.RO 

6$: 

TSTB 

(R0)+ 


BNE 

7$ 


MOV 

8(R1)*,-(SP) 


TYPOC 

BR 

8$ 

7$: 

MOV 

8(R1)*,-(SP) 

8$: 

TYPDS 

TST 

(R1) 


BEO 

9$ 


TYPE 

.11$ 


BR 

6$ 

9$: 

MOV 

(SP)+,R1 

10$: 

MOV 

(SP)*.RO 


"CARRIAGE RETURN" ft "LINE FEED" 

SAVE RO 

PICKUP THE ITEM INDEX 

IF ITEM NUMBER IS ZERO, JUST 
TYPE THE PC OF THE ERROR 
SAVE SERRPC FOR TYPEOUT 
ERROR ADDRESS 

GO TYPE— OCTAL ASCII (ALL DIGITS) 

GET OUT 

SEE IF THIS ERROR CALL IS SPECIAL POWER FAIL CALL 
BRANCH IF NOT 
GET TEST NUMBER 

MOVE POWER FAIL ERROR CALL TABLE TO RO 
BRANCH TO CALL ERROR 
ADJUST THE INDEX SO THAT IT WILL 
WORK FOR THE ERROR TABLE 


FORM TABLE POINTER 
PICKUP ’tRROR MESSAGE" POINTER 
SKIP TYPEOUT IF NO POINTER 
TYPE THE ’tRROR MESSAGE" 

"ERROR MESSAGE" POINTER GOES HERE 
"CARRIAGE RETURN" ft ’UNE FEED" 
PICKUP 'DATA HEADER" POINTER 
SKIP TYPEOUT IF 0 
TYPE THE ’DATA HEADER" 

’DATA HEADER" POINTER GOES HERE 
"CARRIAGE RETURN" ft ’1INE FEED" 
SAVE R1 

PICKUP ’DATA TABLE" POINTER 
BR IF NO DATA TO BE TYPED 
PICKUP ’DATA FORMAT" POINTER 
’OCTAL" OR ’DECIMAL" 

BR IF DECIMAL 

SAVE 8(R1)* FOR TYPEOUT 

GO TYPE— OCTAL ASCII (ALL DIGITS) 


; ; SAVE 8(R1>+ FOR TYPEOUT 

;;G0 TYPE— DECIMAL ASCII WITH SIGN 

;;1S THERE ANOTHER NUMBER? 

;;BR IF NO 

;;TYPE TW0(2) SPACES 
;;LOOP 

;; RESTORE R1 
;; RESTORE RO 
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,$CRlF 
PC 

/ / 


067410 

067414 

067416 

104401 

000207 

040 

001207 

040 

000 

11*: 

TVPE 

RTS 

.ASCIZ 

067422 

067432 

067514 

067546 

PFECH: 

.EVEN 

PFECH1 

067432 

120 

117 

127 

PFECH1: 

.ASCIZ 

067514 

124 

105 

123 

PFECH2: 

.ASCIZ 

067546 

067562 

001116 

067220 

PFECH3: 

.EVEN 

.WORD 

067556 

000 

000 

000 

PFECH4: 

.BYTE 

067562 

000000 



PFTSTN: 

.WORD 


"CARRIAGE RETURN* 
RETURN 

TWO<2) SPACES 


& "LINE FEED" 


? POWER MONITOR BIT IN CPU ERROR REGISTER FOUND SET? 
7TESTNO ERR PC CPUERREG? 

PFTS TN.tERRPC . CPSAVE . C 

0, 0.0,6 

0 ;; CONTAINS TEST NUMBER FOR PF BIT ERROR 


SEO 



6 14 


SEP 0175 
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067564 

067570 

067572 

067574 

067576 

067600 

067604 

067606 

067610 

067612 

067614 

067620 

067622 

067626 

067630 

067634 

067636 

067640 

067642 

067644 

067650 

067652 

067656 

067662 

067664 

067670 

067674 

067676 

067702 

067706 


067710 

067714 

06772C 

067726 

067730 

067732 


•ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A 0 BYTE. 

•THE ROUTINE WILL INSERT A HUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

•N0TE1 : SNULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 

•N0TE2: (FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REOUIRED. 

•N0TE3: SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


•CALL: 

*1) USING A TRAP INSTRUCTION 




; » 

TYPE 

.MESADR 



.-•OR 





;* 

TYPE 




; * 

;* 

MESADR 


105737 

001157 

(TYPE: 

TSTB 

STPFLG 

100002 



BPL 

1$ 

OOOOOO 



HALT 


000407 



BR 

3$ 

010046 


1$: 

MOV 

RO.-(SP) 

017600 

000002 


MOV 

82(SP).R0 

112046 


2$: 

M0V8 

(RO)+.-(SP) 

001005 



BNE 

4$ 

005726 



TST 

(SP)* 

012600 


60S: 

MOV 

(SP) ♦.RO 

062716 

000002 

3$: 

ADD 

#2.(SP) 

000002 



RTI 


122716 

000011 

4$: 

CMPB 

#HT,(SP) 

001430 



BEQ 

8$ 

122716 

000200 


CMPB 

0CRLF , (SP) 

0C1C06 



BNE 

5 $ 

005726 



TST 

(SP)* 

104401 



TYPE 


001207 



SCRLF 


105037 

070052 


CLRB 

SCHARCNT 

000755 



BR 

2 $ 

004737 

067734 

5$: 

JSR 

pc.stypec 

123726 

001156 

6$: 

CMPB 

SFILLC. (SP)+ 

001350 



BNE 

2S 

013746 

001154 


MOV 

SNULL. -(SP) 

105366 

000001 

7$: 

DECB 

1 (SP) 

002770 



BLT 

6S 

004737 

067734 


JSR 

PC.STYPEC 

105337 

070052 


DECB 

SCHARCNT 

000770 



BR 

7S 



.-HORIZONTAL TAB 

PROCESSOR 

112716 

000040 

8$: 

NOVB 

#' .(SP) 

004737 

067734 

9$: 

JSR 

PC.STYPEC 

132737 

000007 

070052 

BITS 

#7,SCHARCNT 

001372 



BNE 

9S 

005726 



TST 

(SP)* 

000724 



BR 

2$ 


; ;M£SADR IS FIRST ADDRESS OF AN ASCIZ STRING 


;;IS THERE A TERMINAL? 

. .0 £ |p yf 5 

••HALT HERE IF NO TERMINAL 
;; LEAVE 
;;SAVE RO 

; ; GET ADDRESS OF ASCIZ STRING 
;;PUSH CHARACTER TO BE TYPED ONTO STACK 
;;BR IF IT ISN'T THE TERMINATOR 
;;IF TERMINATOR POP IT OFF THE STACK 
; .-RESTORE RO 
; .-ADJUST RETURN PC 
;. -RETURN 

; .-BRANCH IF <HT> 

; .-BRANCH IF NOT <CRLF> 

; ;POP <CR><LF> EQUIV 
.-.-TYPE A CR AND LF 

.-.-CLEAR CHARACTER COUNT 
.-.-GET NEXT CHARACTER 
;;G0 TYPE THIS CHARACTER 
;;IS IT TIME FOR FILLER CHARS.? 

;;IF NO GO GET NEXT CHAR. 

.-.-GET # OF FILLER CHARS. NEEDED 
;;AND THE NULL CHAR. 

;;DOES A NULL NEED TO BE TYPED? 

;;BR IF NO-GO POP THE NULL OFF OF STACK 

;;G0 TYPE A NULL 

;;D0 NOT COUNT AS A COUNT 

.-.LOOP 




REPLACE TAB WITH SPACE 
TYPE A SPACE 
BRANCH IF NOT AT 
TAB STOP 

POP SPACE OFF STACK 
GET NEXT CHARACTER 




SEO 0176 


;;CHAR IN KVBD BUFFER? 

;;8R IF NOT 
;;GET CHAR 

;;STRIP EXTRANEOUS BITS 
;;UAS CHAR XOFF 
;;BR IF NOT 

;;UAIT FOR CHAR 

;;GET CHAR 
;; STRIP IT 
;;UAS IT XON? 

;;8R IF NOT 

;;F IX STACK 

.-.-WAIT UNTIL PRINTER IS READY 

;;LOAD CHAR TO BE TYPED INTO DATA REG. 
;;IS CHARACTER A CARRIAGE RETURN? 
.-.-BRANCH IF NO 

;; YES— CLEAR CHARACTER COUNT 
.-.-EXIT 

;;IS CHARACTER A LINE FEED? 

;. -BRANCH IF YES 
;; COUNT THE CHARACTER 
;; CHARACTER COUNT STORAGE 


i 

L 
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SEQ 0177 


.S8TTL BINARY TO OCTAL (ASCII) AND TYPE 


•THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGIT 
•OCTAL (ASCII) NlMBER AND TYPE IT. 

•STYPOS ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

•CALL: 


MOV 

TYPOS 

.BYTE 

.BYTE 


NLH.-(SP) 

N 

M 


NUMBER TO BE TYPED 
CALL FOR TYPEOUT 

N=1 TO 6 FOR NUMBER OF DIGI T S TO TYPE 
M=1 OR 0 

;;1=TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


•STYPON ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

•STYPOS OR STYPOC 
•CALL: 

• MOV NUN,-(SP> ; .-NUMBER TO BE TYPED 

* TYPON .-.'CALL FOR TYPEOUT 

•STYPOC ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 

•CALL: 

* MOV NUM.-(SP) .-.-NUMBER TO BE TYPED 

• TYPOC .-.-CALL FOR TYPEOUT 


070056 

017646 

000000 


STYPOS: 

MOV 

070062 

116637 

000001 

070301 


Move 

070070 

112637 

070303 



RCV8 

070074 

062716 

000002 



ADD 

070100 

000406 




BR 

070102 

112737 

000001 

070301 

STYPOC: 

M0V8 

070110 

112737 

000006 

070303 


MOVB 

070116 

112737 

000005 

070300 

Si'YPON: 

H0V8 


070124 

070126 

070130 

070132 

070136 

070140 

070144 

070150 

070154 

070160 

070162 

070164 

070166 

070170 

070172 

070174 

070176 

070200 

070204 

070206 

070212 

070214 

070216 

070220 


010346 

010446 

010546 

113704 

005404 

062704 

110437 

113704 

016605 

005003 

006105 

000404 

006105 

006105 

006105 

010503 

006103 

105337 

100016 

042703 

001002 

005704 

001403 

005204 


070303 

000006 

070302 

070301 

000012 


070302 

177770 


IS: 

2S: 


3S: 


4$: 


MOV 

MOV 

MOV 

M0V8 

NEG 

ADD 

H0V8 

Move 

NOV 

CLR 

ROL 

BR 

ROL 

ROL 

ROL 

NOV 

ROL 

DECS 

8PL 

BIC 

BNE 

TST 

BEO 

INC 


8(SP).-(SP) 

1 (SP) .SOFILL 
(SP) ♦.S0M0DE+1 
#2, (SP) 

STYPON 

#1. SOFILL 

#6.$OMODE+1 

#5,S0CNT 

R3.-(SP) 

R4.-CSP) 

R5.-CSP) 

SONODE+1 ,R4 

R4 

J6.R4 

R4.S0M00E 

SOFILL. R4 

1 2 ESP) ,R5 

R3 

R5 

3S 

R5 

R5 

R5 

R5.R3 

R3 

SUMODE 

7S 

#1 77770, R3 

4S 

R4 

5S 

R4 


.-PICKUP THE MODE 
,-LOAD ZERO FILL SWITCH 
.-NUMBER CF DIGITS TO TYPE 
.'ADJUST RETURN ADDRESS 

.-SET THE ZERO FILL SWITCH 
.-SET FOR SIX(6) DIGITS 
;SET THE ITERATION COUNT 
.-SAVE R3 
.-SAVE R4 
-SAVE R5 

‘GET THE NUMBER OF DIGITS TO TYPE 

.‘SUBTRACT IT FOR MAX. ALLOWED 
.-SAVE I T FOR USE 
.-GET THE ZERO FILL SWITCH 
,-PICKUP THE INPUT NUMBER 
.-CLEAR THE OUTPUT WORD 
.-ROTATE MSB INTO "C" 

;50 DO MSB 
.-FORM THIS DIGIT 


GET LSB OF THIS DIGIT 
T YPE THIS DIGIT? 

BR IF NO 
GET RID OF JUNK 
TEST FOR 0 
SUPPRESS THIS 0? 

BR IF YES 

DON’T SUPPRESS ANYMORE O’S 



SEO 0178 


HAKE THIS DI6IT ASCII 
MAKE ASCII IF NOT ALREADY 
SAVE FOR TYPING 
60 TYPE THIS DIGIT 
COUNT BY 1 
BR IF MORE TO DO 
BR IF DONE 

INSURE LAST DIGIT ISN'T A BLANK 
GO DO THE LAST DIGIT 
RESTORE R5 
RESTORE RA 
'RESTORE R3 

iSET THE STACK FOR RETURNING 
; RE TURN 

; STORAGE FOR ASCII DIGIT 
; TERMINATOR FOR TYPE ROUTINE 
; OCTAL DIGIT COUNTER 
: ZERO FILL SWITCH 
iNUMBER OF DIGITS TO TYPE 


L 


SEQ 0179 
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.-•CALL: 







;* 

MOV 

NUM.-(SP) 





;* 

TYPDS 


070304 




STYPDS: 



070304 

010046 




MOV 

RO.-(SP) 

070306 

010146 




MOV 

RI.-(SP) 

070310 

010246 




MOV 

R2,-(SP) 

070312 

010346 




MOV 

R3.-(SP) 

070314 

010546 




MOV 

R5,-(SP) 

070316 

012746 

020200 



MOV 

#20200.-(SP) 

070322 

016605 

000020 



MOV 

20(SP).R5 

070326 

100004 




BPL 

1$ 

070330 

005405 




NEG 

R5 

0 7 0332 

112766 

000055 

000001 


MOVB 

/t'-.ksp) 

070340 

005000 



1$: 

CLR 

RO 

070342 

012703 

070520 



MOV 

#$DBLK.R3 

070346 

112723 

000040 



MOVB 

, (R3) + 

070352 

005002 



2$: 

CLR 

R2 

070354 

016001 

070510 



MOV 

SDTBL(RO) ,R1 

070360 

160105 



3S: 

SUB 

R1.R5 

070362 

002402 




BLT 

4$ 

070364 

005202 




INC 

R2 

070366 

000774 




BR 

3$ 

070370 

060105 



4$: 

ADD 

R1.R5 

070372 

005702 




TST 

R2 

07037*. 

001002 




BNE 

5$ 

070376 

105716 




TSTB 

(SP) 

070400 

100407 




BMI 

7$ 

070402 

106316 



5$: 

AS LB 

(SP) 

070404 

103003 




BCC 

6$ 

070406 

116663 

000001 

177777 


MOVB 

1(SP>.-1(R3) 

070414 

052702 

000060 


6$: 

BIS 

# ! 0.r2 

070420 

052702 

000040 


7$: 

BIS 

#• ,R2 

070424 

110223 




MOVB 

R2,(R3)* 

070426 

005720 




TST 

(RO)* 

070430 

020027 

000010 



CMP 

R0.#10 

070434 

002746 




BLT 

2J 

070436 

003002 




BGT 

8$ 

070440 

010502 




MOV 

R5.R2 

070442 

000764 




BR 

6$ 

070444 

105726 



8$: 

TSTB 

(SPH 

070446 

100003 




BPL 

9$ 

070450 

116663 

177777 

177776 


MOVB 

-1 (SP).-2(R3) 

070456 

105013 



9$: 

CLRB 

(R3) 

070460 

012605 




MOV 

(SP)*,R5 

070462 

012603 




MOV 

(SPH.R3 

070464 

012602 




MOV 

(SPI+.R2 

070466 

012601 




MOV 

(SPH.R1 


.S8TTL CONVERT 8INARY TO DECIMAL AND TYPE PjdTINE 

•THIS*ROUTJNE IS USED TO CHANGE A 16-81 T BINARY NUMBER TO A 5-DIGIT 
•SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING CN WHETHER THE 
•NUMBER *S POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
•BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
•REPLACED WITH SPACES. 

;;Pur THE BINARY NUMBER ON THE STACK 
;;GO TO THE ROUTINE 

;;PUSX RO ON STACK 
; ; PUSH R1 ON STACK 
;;PUSH R2 ON STACK 
; ; PUSH R3 ON STACK 
; ; PUSH R5 ON STACK 
;;SET BLANK SWITCH AND SIGN 
;;GET THE INPUT NUMBER 
;;BR IF INPUT IS POS. 

;;MAKE THE BINARY NUMBER POS. 

;;MAKE THE ASCII NUMBER NEG. 

;;ZERO THE CONSTANTS INDEX 
;; SETUP THE OUTPUT POINTER 
;;SET THE FIRST CHARACTER TO A BLANK 
;; CLEAR THE BCD NUMBER 
;;GET THE CONSTANT 
;;FORM THIS BCD DIGIT 
;;BR IF DONE 

;; INCREASE THE BCD DIGIT BY 1 

;;ADD BACK THE CONSTANT 
; .-CHECK IF BCD DIGIT=0 
;;FALL THROUGH IF 0 
; .-STILL DOING LEADING O’S? 

;;BR IF YES 
;;MSD? 

;;BR IF NO 
;; YES— SET THE SIGN 
.-.-MAKE THE BCD DIGIT ASCII 
.-.-MAKE IT A SPACE IF NOT ALREADY A DIGIT 
.-.-PUT THIS CHARACTER IN THE OUTPUT BUFFER 
.-.-JUST INCREMENTING 
;; CHECK THE TABLE INDEX 
;;GO DO THE NEXT DIGIT 
;;GO TO EXIT 
;;GET THE LSD 
;;GO CHANGE TO ASCII 
.-.-WAS THE LSD THE FIRST NON-ZERO? 

;;BR IF NO 

;; YES— SET THE SIGN FOR TYPING 
.-.-SET THE TERMINATOR 
.-.-POP STACK INTO R5 
.-.-POP STACK INTO R3 
.-.-POP STACK INTO R2 
;;POP STACK INTO R1 


SEQ 0180 
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070470 

012600 



NOV 

(SPI+.RO 

;;P0P STACK INTO RO 

070472 

104401 

070520 


TYPE 

.SDBLK 

;;NOW TYPE THE NUMBER 

070476 

016666 

000002 

000004 

NOV 

2(SP) ,4(SP) 

.‘.•ADJUST THE STACK 

070504 

012616 


NOV 

(SP)*,(SP> 


070506 

000002 



PTI 


; .‘RETURN TO USER 

070510 

023420 


SDT8L : 

10000. 



070512 

001750 



1000. 



070514 

000144 



100. 



070516 

000012 



10. 



070520 



SDBLK: 

•BLKU 

4 
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.S8TTL TTY INPUT ROUTINE 


SEO 0181 


070530 000000 
070532 000000 
070534 000000 
070536 

070537 


.ENA8L l SB 
STKCNT : .WORD 0 
STKOIN: .WORD 0 
STKQOUT: .WORD 0 
STKQSRT : .BLKB 1 
STKQEND=. 

.EVEN 


NUMBER OF ITEMS IN QUEUE 
INPUT POINTER 
OUTPUT POINTER 
TTY KEYBOARD QUEUE 


070540 

070544 

070552 

070560 

070566 

070574 

070600 

070606 


005037 

012737 

013737 

012737 

012737 

005777 

012777 

000207 


070530 

070536 070532 
070532 070534 
070610 000060 
000200 000062 
110346 

000100 110336 


*TK INITIALIZE ROUTINE 

•THIS ROUTINE WILL INITIALIZE THE TTY KEYBOARD INPUT QUEUE 
•SETUP THE INTERRUPT VECTOR AND TURN ON THE KEYBOARD INTERRUPT 


•CALL: 

* JSR 

* RETURN 


STKINT: CLR 
MOV 
MOV 
MOV 
MOV 
TST 
MOV 
RTS 


PC, STKINT 


STKCNT 

ASTKQSRT.STKQIN 

STKOIN, STKQOUT 

«STKSRV,i#TKVEC 

#200.a#TKVEC+2 

8STKB 

#100,aSTKS 

PC 


CLEAR COUNT OF ITEMS IN QUEUE 

MOVE THE STARTIN6 ADDRESS OF THE 

QUEUE INTO THE INPUT % OUTPUT POINTERS. 

INITIALIZE THE KEYBOARD VECTOR 

‘BR" LEVEL 4 

CLEAR DONE FLA6 

ENABLE TTY KEYBOARD INTERRUPT 

RETURN TO CALLER 






.-•UPON RETURN EXIT IS MADE 

070610 

117746 

110332 


iTKSRV: 

M0V8 

aSTKB.-(SP) 
# & C177,(SP> 
(SP) ,#SX0N 
30S 

070614 

042716 

177600 



BIC 

070620 

070624 

021627 

001002 

000021 



CMP 

BNE 

070626 

005726 




TST 

(SP) + 

070630 

000002 




RTI 


070632 

070632 

021627 

000003 


30S: 

CMP 

(SP) .Ml 

070636 

001007 




BNE 

IS 

070640 

104401 

071736 



TYPE 

,SCNTLC 

070644 

004737 

070540 



JSR 

PC, STKINT 

070650 

005726 




TST 

( SP )♦ 

070652 

000137 

002240 



JMP 

START 

070656 

021627 

000007 


IS: 

CMP 

<SP),#7 

070662 

001004 




BNE 

2S 

070664 

022737 

000176 

001140 


CMP 

#SUREG,SWR 

070672 

001500 




BEQ 

6$ 

07067a 

070674 

022737 

000001 

070530 

2S: 

CMP 

#1, STKCNT 

070702 

001004 




BNE 

3S 

070704 

104401 

001202 



TYPE 

,SBELL 


•TK SERVICE ROUTINE 

•THIS ROUTINE WILL SERVICE THE TTY KEYBOARD INTERRUPT 
•BY READING THE CHARACTER FROM THE INPUT BUFFER AND PUTTING 
•IT IN THE QUEUE. 

•IF THE CHARACTER IS A "CONTROL-C" (*C> STKINT IS CALLED AND 


PICKUP THE CHARACTER 
STRIP THE JUNK 
IS IT A RANDOM XON? 

BRANCH IF NO 

CLEAN RANDOM XON OFF STACK 
RETURN 

IS IT A CONTROL C? 

BRANCH IF NO 

TYPE A CONTROL-C (*C> 

INIT THE KEYBOARD 
CLEAN UP STACK 
CONTROL C RESTART 
IS IT A CONTROL G? 

BRANCH IF NO 
IS SOFT-SWR SELECTED? 

GO TO SWR CHANGE 


IS THE QUEUE FULL? 
BRANCH IF NO 
RING THE TTY BELL 


EDroCOCDaJCOa?CDCDCDaoaDCD®GD®ODCDQJCDUJ®®tD®»y** 


SEQ 0182 
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070710 

070712 

070714 

070720 

070722 

070726 

070730 

070734 

070736 

070742 

070746 

070752 

070754 

070762 

070764 

070770 

070774 

070776 

071002 

071004 

071010 

071014 

071020 

071026 

071030 

071036 


071040 

071046 

071050 

071054 

071056 

071062 

m 


005726 

000451 

021627 

001021 

005077 

005726 

105777 

100375 

117746 

042716 

022627 

001366 

012777 

000002 

005237 

021627 

002405 

021627 

003002 

042716 

112677 

005237 

023727 

001003 

012737 

000002 


022737 

001124 

105777 

100121 

117746 

042716 

021627 

001300 


000023 

110216 

110210 

110204 

177600 

000021 

000100 110162 

070530 

000140 

000175 

000040 

177516 

070532 

070532 070537 
070536 070532 


071074 123727 

071102 001674 
071104 005726 
071 1C6 004737 
071112 005077 
071116 112737 

271 1J4 104401 

671130 104401 
071134 013746 
071140 104402 



TST 

(SP)* 

;; CLEAN CHARACTER OFF OF STACK 


BR 

5$ 

;;EXIT 

3$: 

CMP 

(SP) ,#23 

; ; I S IT A CONTROL-S? 


BNE 

32$ 

.'.‘BRANCH IF NO 


CLR 

a$TKS 

;; DISABLE TTY KEYBOARD INTERRUPTS 


TST 

(SP)* 

;; CLEAN CHAR OFF STACK 

31$: 

TSTB 

a$TKS 

.-.-WAIT FOR A CHAR 


BPL 

31$ 

.'.'LOOP UNTIL ITS THERE 


HOVB 

a$TK8,-(SP) 

;;GET THE CHARACTER 


BIC 

# A C177,(SP) 

;;MAKE IT 7-BIT ASCII 


CMP 

(SP)*.#21 

; ; IS IT A CONTROL-Q? 


BNE 

31$ 

; .-BRANCH IF NO 


MOV 

#ioo,a$Txs 

; .'REENABLE TTY KEYBOARD INTERRUPTS 


RTI 


; .-RETURN 

32$: 

INC 

$TKCN T 

;; COUNT THIS CHARACTER 


CMP 

(SP) .#140 

; ; IS IT UPPER CASE? 


BLT 

4$ 

; .-BRANCH IF YES 


CMP 

(SP) .#175 

;;1S IT A SPECIAL CHAR? 


BGT 

4$ 

.‘.•BRANCH IF YES 


BIC 

#40. (SP) 

.-.-MAKE IT UPPER CASE 

4$: 

MOVB 

(SP) *.a$TKQIN 

;.*AND PUT IT IN QUEUE 


INC 

STKQIN 

;; UPDATE THE POINTER 


CMP 

$TKQIN,#$TKQEND 

;;G0 OFF THE END? 


BNE 

5$ 

; .'BRANCH IF NO 


MOV 

#$TKQSRT. STKQIN 

;; RESET THE POINTER 

5$: 

RTI 


; .'RETURN 


000176 001140 

110070 

110064 

177600 

000007 


•SOFTWARE SWITCH REGISTER CHANGE ROUTINE. 

•ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
•SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP 
•CALL WHEN OPERATING IN TTY INTERRUPT NODE. 


SCKSWR: CM P 
BNE 
TSTB 
BPL 
M0V8 
BIC 
CMP 
BNE 


#SWREG.$WR ;;IS THE SOFT-SWR SELECTED 
15$ ;;EXIT IF NOT 

BSTKS ; ; IS A CHAR WAITING? 

15$ ;;1F NOT. EXIT 

B$TKB,-(SP) ;; YES 

M A C17t.(SP) ;;MAKE IT 7-BIT ASCII 

(SP).rf ; ; IS IT A CONTROL-G? 

2$ ;; IF NOT. PUT IT IN THE TTY QUEUE 

;;AND EXIT 


001134 000001 


•CONTROL IS PASSED TO THIS POINT FROM EITHER THE TTY INTERRUPT SERVICE 
•ROUTINE OR FROM THE SOFTWARE SWITCH REGISTER TRAP CALL. AS A RESULT OF A 
•CONTROL-G BEING TYPED, AND THE SOFTWARE SWITCH REGISTER BEING SELECTED. 


070540 

110026 

000001 

071750 

071755 

000176 


001135 


6$: CMP8 

BEQ 
TST 
J SR 
CLR 
N0V8 

TYPE 

$GTSWR: TYPE 
MOV 
TYPOC 


SAUT0B,#1 ;;ARE WE RUNNING IN AUTO-MODE? 

2$ ; .'BRANCH IF YES 

(SP)* ;; CLEAR CONTROL-G OFF STACK 

PC,$TKINT .-.'FLUSH THE TTY INPUT QUEUE 

BSTKS DISABLE TTY KEYBOARD INTERRUPTS 

#1 ,$INTAG ; ; SET INTERRUPT MODE INDICATOR 

,$CNTLG ;;ECHO THE CONTROL-G (*G> 

SHSWfi .'.'TYPE CURRENT CONTENTS 

SWREG.-(SP) ;;SAVE SWREG FOR TYPEOUT 

; ; GO TYPE— OCTAL ASCI I (ALL DIGITS) 



• « 


SEQ , 


;; PROMPT FOR NEW SWR 
;; CLEAR COUNTER 
;;THE NEW SWR 
; ;CHAR THERE? 

;;IF NOT TRY AGAIN 

;;PICK UP CHAR 
;;MAKE IT 7-BIT ASCII 

;; IS IT A CONTROl-C? 

.'.•BRANCH IF NOT 

;; YES. ECHO CONTROL-C <*C) 

;; CLEAN UP STACK 

; .-REENABLE TTY KEYBOARD INTERRUPTS? 
.-.'BRANCH IF NO 

; .'ALLOW TTY KEYBOARD INTERRUPTS 
;; CONTROL-C RESTART 


;;IS IT A CONTROL-U? 
.'.'BRANCH IF NOT 
;;YES, ECHO CONTROL-U <*U) 
.'.'IGNORE PREVIOUS INPUT 
.'.'LET’S TRY IT AGAIN 


IS IT A <CR>? 

BRANCH IF NO 

YES. IS IT THE FIRST CHAR? 

BRANCH IF YES 

SAVE NEW SWR 

CLEAR UP STACK 

ECHO <CR> AND <LF> 

RE-ENABLE TTY KBD INTERRUPTS? 
BRANCH IF NOT 

RE-ENABLE TTY KBD INTERRUPTS 

RETURN 

ECHO CHAR 

CHAR < 0? 

BRANCH IF YES 
CHAR > 7 ? 

BRANCH IF YES 
STRIP-OFF ASCII 
IS THIS THE FIRST CHAR 
BRANCH IF YES 
NO. SHIFT PRESENT 
CHAR OVER TO MAKE 
ROOM FOR NEW ONE. 

KEEP COUNT OF CHAR 
SET IN NEW CHAR 
GET THE NEXT ONE 
TYPE ?<CR><LF> 

SIMULATE CONTROL-U 



J 


SEQ 0184 
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C 15 


07H02 

071404 

071412 

071416 

071420 

071424 

071426 

071426 

071432 

071434 

071440 

071446 

071452 

071460 

071462 

071470 


071472 
071474 
071476 
071502 
071506 
071510 
071512 
071514 
071520 
071522 
071524 
071526 
071534 
071540 
071544 
07 i 546 
071552 
071554 
071560 
071564 
071566 
071570 
071572 
071600 
071604 
071606 
071612 


011646 



SHDCHR: 

MOV 

016666 

000004 

000002 


MOV 

005066 

000004 



CLR 

005046 




CLR 

012746 

071426 



MOV 

000002 




RTI 




64S: 


005737 

070530 


1S: 

TST 

001775 




BEQ 

005337 

070530 



DEC 

117766 

177070 

000004 


M0V8 

005237 

070534 



INC 

023727 

070534 

070537 


CMP 

001003 




BNE 

012737 

070536 

070534 


MOV 

000002 



2S: 

RTI 


* THIS ROUTINE WILL INPUT A SINGLE CHARACTER FROM THE TTY 
•CALL: 

* RDCHfi ;;SET A CHARACTER FROM THE QUEUE 

* RETURN HERE ;; CHARACTER IS ON THE STACK 

* ;;UITH PARITY BIT STRIPPED OFF 


(SP. : ,-(SP) ;;PUSH DOWN THE PC AND 
4(SP).2<SP) ; ; THE PS 

4(SP) ;;GET READY FOR A CHARACTER 

-CSP) ;;PUT NEW PS ON STACK 

#64S,-(SP) ;;PUT NEW PC ON STACK 

;;POP NEW PC AND PS 

;;WAIT ON A CHARACTER 


STKCNT 

IS 

STKCNT 

aSTKQ0UT,4(SP> 
STKQOUT 


; .-DECREMENT THE COUNTER 
;;GET ONE CHARACTER 
; .-UPDATE THE POINTER 
STKQOUT .#STKQEND ;;DID IT GO OFF OF THE END? 
2$ .-.-BRANCH IF NO 

fSTKQSRT. STKQOUT .-.-RESET THE POINTER 
; .-RETURN 


.-•THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
.-•CALL: 

; * RDLIN 

RETURN HERE 


;* 
■ * 


;; INPUT A STRING FROM THE TTY 
; .-ADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
.-.-TERMINATOR WILL BE A BYTE OF ALL O’S 


010346 



SRDLIN: 

MOV 

005046 




CLR 

012703 

071726 


IS: 

MOV 

022703 

071736 


2 S: 

CMP 

101456 




BLOS 

104410 




RDCHR 

112613 




movb 

122713 

000177 


10S: 

CMPB 

001022 




BNE 

005716 




TST 

001 Q17 




BNE 

1127^7 

000134 

071724 


MOVB 

104401 

071724 



TYPE 

012716 

177777 



MOV 

005303 



6S: 

DEC 

020327 

071726 



CMP 

103434 




BLO 

111337 

071724 



MOVB 

104401 

071724 



TYPE 

000746 




BR 

005716 



5S: 

TST 

001406 




BEQ 

112737 

000134 

071724 


MOVB 

104401 

071724 



TYPE 

005016 




CLR 

122713 

000025 


7S: 

CMPB 

001003 




eNE 


R3.-CSP) 

-(SP) 

#STTYIN.R3 

WTYIN+8..R3 

4S 

(SP)+. (R3) 
#177. (R3) 

5S 

(SP) 

6 $ 

#'\.9S 

,9S 

#-1.(SP) 

R3 

R3.#STTYIN 

4S 

(R3).9S 

.9S 

h 

(SP) 

7S 

#'\,9S 

,9S 

(SP) 

#25. (R3) 

8S 


• • ^iVF R3 

••CLEAR THE RUBOUT KEY 
;;GET ADDRESS 
; .-BUFFER FULL? 

* *BR IF YES 

:-;G0 READ ONE CHARACTER FROM THE TTY 
.-.-GET CHARACTER 
;;IS IT A RUBOUT 
;;BR IF NO 

;;IS THIS THE FIRST RUBOUT? 

,*.*BR IF NO 
.-.-TYPE A BACK SLASH 

.-.-SET THE RUBOUT KEY 
; .-BACKUP BY ONE 
; .-STACK EMPTY? 

* *BR IF YES 

••SETUP TO TYPEOUT THE DELETED CHAR. 
;;G0 TYPE 

;;G0 READ ANOTHER CHAR. 

; .-RUBOUT KEY SET? 

,*;BR IF NO 
.-.-TYPE A BACK SLASH 

;; CLEAR THE RUBOUT KEY 
; ; IS CHARACTER A CTRL U? 

;;8R IF NO 


SEQ 0185 


d 15 
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071614 

104401 

071743 


TYPE 

.SCNTLU 

TYPE A CONTROL *V 

071620 

000726 



GR 

is 

GO START OVER 

071622 

122713 

000022 


8$: CAPS 

#22. (R3) 

IS CHARACTER A • , *R'*? 

071626 

0010H 



BNE 

3$ 

BRANCH IF NO 

071630 

105013 



CURB 

(R3) 

CLEAR THE CHARACTER 

071632 

104401 

001207 


TYPE 

, SCRIP 

TYPE A "CR" 6 ‘IF" 

071636 

104401 

071726 


TYPE 

.STTYIN 

TYPE THE INPUT STRING 

071642 

000717 



BR 

2$ 

GO PICKUP ANOTHER CHACTER 

071644 

104401 

001206 


4$: TYPE 

.SQUES 

TYPE A •?• 

071650 

000712 



BR 

Is 

CLEAR THE BUFFER AND LOOP 

071652 

111337 

071724 


3S: M0V8 

(R3J.9S 

ECHO THE CHARACTER 

071656 

104401 

071724 


TYPE 

,9S , 


071662 

122723 

000015 


CMP8 

#15, (R3)* 

CHECK FOR RETURN 

071666 

001305 



BNE 

2S 

LOOP IF NOT RETURN 

071670 

105063 

177777 


CLRB 

-1(R3) 

CLEAR RETURN (THE 15) 

071674 

104401 

001210 


TYPE 

,SLF 

TYPE A LINE FEED 

071700 

005726 



TST 

<SP) + 

CLEAN RUBOUT KEY FROM THE STACK 

071702 

012603 



MOV 

(SPI+.R3 

RESTORE R3 

071704 

011646 



MOV 

(SP), -(SP) 

ADJUST THE STACK AND PUT ADDRESS OF THE 

071706 

016666 

000004 

000002 

MOV 

4 (SP), 2 (SP) 

FIRST ASCII CHARACTER ON IT 

071714 

012766 

071726 

000004 

MOV 

#STTYIN,4(SP) 


071722 

000002 



RTI 


RETURN 

071724 

000 



9$: .8 W TE 

0 

STORAGE FOR ASCII CHAR. TO TYPE 

071725 

000 



.BYTE 

0 

TERMINATOR 

071726 




STTYIN: .BLKB 

8. 

RESERVE 8 BYTES FOP TTY INPUT 

071736 

136 

103 

015 

SCNTLC: .ASCIZ 

/*C/<15><12> 

CONTROL "C” 

071743 

136 

125 

015 

SCNTLU: .ASCJZ 

/*U/<15x12> 

CONTROL 'V 

071750 

136 

107 

015 

SCNTLG: .ASCIZ 

/*G/<15X12> 

CONTROL ’'G*' 

071755 

015 

012 

123 

SMSUR: .ASCIZ 

<15x12>/SUR = / 


071766 

040 

040 

116 

SMNEW: .ASCIZ 

/ NEW = / 



.EVEN 



•THE 

*OCT< 

•FOL! 

•THEI 

•CALI 


000004 000002 


SRDOC 
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SAVE A NO RESTORE R0-R5 ROUTINES 

.S8TTL SAVE AND RESTORE R0-R5 ROUTINES 


072140 

072140 010046 
072142 010146 
072144 010246 
072146 010346 
072150 010446 
072152 010546 
072154 016646 000022 
072160 016646 000022 
072164 016646 000022 
072170 016646 000022 
072174 000002 


072176 

072176 012666 000022 
072202 012666 000022 
072206 012666 000022 
072212 012666 000022 
072216 012605 
072220 012604 
072222 012603 
072224 012602 
072226 012601 
072230 012600 
072232 000002 


•SAVE RO-R5 
•CALL: 

• SAVRE6 

•UPON RETURN FROM SSAVREG THE STACK HILL LOOK LIKE: 

* 

•TOP (+16) 

• *2 — (+18) 

• +4 R5 

• *6 — R 4 

• +8— R3 

•♦10 R2 

•♦ 12—11 
*♦14 — RO 


SSAVREG: 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 

•RESTORE RO-R5 

•CALL: 

• RESREG 
SRESREG: 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

RTJ 


R0,-(SP> 

R1 ,-(SP) 
R2.-<SP> 
R3,-(SP) 

R4, -(SP> 

R5,-(SP> 

22(SP),-(SP) 

22(SP), -(SP) 

22(SP).-(SP> 

22(SP),-(SP) 


PUSH RO 
PUSH R1 
PUSH R2 
PUSH R3 
PUSH R4 
PUSH R5 
SAVE PS 
SAVE PC 
SAVE PS 
SAVE PC 


ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
ON STACK 
OF MAIN FLOW 
OF MAIN FLOW 
OF CALL 
OF CALL 


(SP)*.22(SP) 

(SP)*,22(SP) 

<SP)+.22( SP) 

($P)*,22(SP) 

(SP)+,R5 

<SP)*,R4 

<SP)+,R3 

(SP) +,R2 

(SP)*,R1 

(SP) + , RO 


RESTORE PC 
RESTORE PS 
RESTORE PC 
RESTORE PS 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 
POP STACK 


OF CALL 
OF CALL 
OF MAIN FLOW 
OF MAIN FLOW 
INTO R5 
INTO R4 
INTO R3 
INTO R2 
INTO R1 
INTO RO 


SEQ om 


6 IS 
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TRAP DECOOER 


.S8TTL TRAP DECOOER 


;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE •’TRAP'* INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 
;*OF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
; *60 TO THAT ROUTINE. 


072234 010046 
072236 016600 000002 
072242 005740 
072244 111000 
072246 006300 
072250 016000 072270 
072254 000200 


STRAP: NOV RO.-(SP) 

NOV 2 ( SP1.R0 

TST -(RO) 

MOVB (RO) »R0 

ASL RO 

NOV STRPAD(RO) .RO 

RTS RO 


SAVE RO 

GET TRAP ADDRESS 
BACKUP BY 2 
GET RIGHT BYTE OF TRAP 
POSITION FOR INDEXING 
IM0EX TO TABLE 
GO TO ROUTINE 


072256 

011646 

072260 

016666 000004 0C00C2 

072266 

000002 

072270 

072256 

072272 

067564 

072274 

070102 

072276 

070056 

072300 

070116 

072302 

070304 

072304 

071130 

072306 

071040 

072310 

071402 

072312 

071472 

072314 

072000 

072316 

072140 

072320 

072176 


;;THIS IS USE TO HANDLE THE "GETPRI" MACRO 


STRAP2: NOV 

NOV 

RTI 

(SP). -(SP) 
4(SP).2(SP) 

;;MOVE THE PC DOWN 
.-.-MOVE THE PSW DOWN 
; .-RESTORE THE PSW 

.S8TTL TRAP TABLE 



;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF 
;*BV THE "TRAP" INSTRUCTION. 

THE ROUTINES CALLED 

; ROUTINE 




iTRPAD: .WORD 
STYPE 
STYPOC 
STYPOS 
STYPON 
STYPDS 

STRAP2 

;;CALL=TYPE 

;;CALL=TYPOC 

;;CALL=TYPOS 

;;CALL=TYPON 

;;CALL=TYPDS 

ooooo 

ooooo 

+ + + + + 
11111 

TTY TYPEOUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZEROS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 

SGTSWR 

;;CALL=GTSWR 

TRAP+6( 104406) 

GET SOFT-SWR SETTING 

SCKSWR 

SRDCHR 

SRDLIN 

SRDOCT 

SSAVREG 

SRESREG 

;;CALL=CKSWR 

;;CALL=RDCHR 

;;CALL=RDLIN 

;;CALL=RDOCT 

; ; CALL=SAVREG 

;;CALL*RESREG 

TRAP+7(104407) 
TRAP+1 0(1 04410) 
TRAP+1 1(104411) 
TRAP+12(104412) 
TRAP+13O04413) 
TRAP*14(104414) 

TEST FOR CHANGE IN SOFT-SWR 

TTY TYPEIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 

READ AN OCTAL NUMBER FROM TTY 

SAVE R0-R5 ROUTINE 

RESTORE R0-R5 ROUTINE 


H IS 
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TFLE TYPE MESSAGES 


.S8TTL 


2 

3 072322 

200 

105 

116 

ENTERA: 

4 072351 

040 

077 

111 

ADRERR: 

5 072374 

200 

120 

117 

PORTAIS 

6 072423 

200 

120 

117 

P0RT8IS 

7 072452 

200 

116 

117 

NOCLOCK 

8 072510 

012 

105 

116 

TESTNO: 

9 072530 

040 

077 

111 

BADNO: 

10 072557 

040 

105 

122 

TSTERR: 

11 072570 

200 

012 

122 

ADDRIS: 

12 072625 

012 

105 

116 

NTRH: 


TELETYPE MESSAGES 

.ASCIZ <CRLF>/ENTER DRIVE ADDRESS: / 

.ASCIZ / 7INVALID ADDRESS/<CRLF> 

.ASCIZ <CRLF>/PORT 'A* ADDRESS IS: / 

.ASCIZ <CRLF>/PORT '8' ADDRESS IS: / 

.ASCIZ <CRLF>/NO SYSTEM 'L* OR *P* CLOCK/<CRLF><LF> 
.ASCIZ <LF>/ENTER TEST #: / 

.ASCIZ / 7INVALID TEST NUMBER/<CRLF> 

.ASCIZ / ERRORS/<CRLF> 

.ASCIZ <CRLFXLF>8RH/RM ADDRESS (RMCS1) IS: 8 
.ASCIZ <LF>8ENTER RH/RM ADDRESS: 8 


SEO 0189 


l 

j 
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TEST ERROR MESSAGES 

1 .S8TTL TEST ERROR MESSAGES 


SEO 0190 


3 072654 

127 

122 

117 

EMI: 

.ASCIZ 

4 072675 

104 

122 

111 

EM2: 

.ASCIZ 

5 072717 

123 

105 

122 

EM3: 

.ASCIZ 

6 073001 

104 

122 

111 

EM4: 

.ASCIZ 

7 073032 

127 

122 

117 

EM5: 

.ASCIZ 

8 073100 

122 

105 

107 

EM6: 

.ASCIZ 

9 073200 

122 

105 

107 

EM7: 

.ASCIZ 

10 073261 

122 

105 

107 

EM10 

.ASCIZ 

11 073311 

103 

117 

116 

EM11 

.ASCIZ 

12 073375 

104 

122 

111 

EMI 2 

.ASCIZ 

13 073445 

122 

105 

101 

£M13 

.ASCIZ 

14 073532 

126 

117 

114 

EMU 

.ASCIZ 

15 073575 

101 

124 

124 

EMI 5 

.ASCIZ 

16 073654 

101 

124 

124 

EMU 

.ASCIZ 

17 073727 

101 

124 

124 

EMI 7 

.ASCIZ 

18 074006 

104 

122 

111 

EM20 

.ASCIZ 

19 074066 

104 

122 

111 

EM21 

.ASCIZ 

20 074141 

104 

122 

111 

EM22 

.ASCIZ 

21 074226 

124 

111 

115 

EM23 

.ASCIZ 

22 074274 

122 

105 

114 

EM24 

.ASCIZ 

23 074353 

124 

111 

115 

EM25 

.ASCIZ 

24 074416 

104 

122 

111 

£M26 

.ASCIZ 

25 074503 

1 22 

105 

107 

EM27 

.ASCIZ 

26 074561 

104 

122 

111 

EM30 

.ASCIZ 

27 074656 

104 

122 

111 

EMJ1 

.ASCIZ 

28 074733 

101 

124 

124 

EM32 

.ASCIZ 

29 075004 

104 

122 

111 

EM33 

.ASCIZ 

30 075106 

104 

122 

111 

EM34 

.ASCIZ 

31 075211 

124 

111 

115 

£M35 

.ASCIZ 

32 075270 

124 

111 

115 

EM36 

.ASCIZ 

33 075342 

104 

1 22 

111 

EM37 

.ASCIZ 

34 075410 

101 

124 

124 

EM40 

.ASCIZ 

35 075465 

124 

111 

115 

EM41 

.ASCIZ 

36 075527 

104 

122 

111 

EM42 

.ASCIZ 

37 075615 

104 

122 

111 

EM43 

.ASCIZ 

38 075672 

127 

122 

111 

EM44 

.ASCIZ 

39 075747 

120 

117 

122 

EM45 

.ASCIZ 

40 076021 

103 

101 

116 

EM46 

.ASCIZ 

41 076070 

101 

124 

124 

EM47 

.ASCIZ 

42 076156 

101 

124 

124 

EM50 

.ASCIZ 

43 076240 

101 

124 

124 

EM51 

.ASCIZ 

44 076327 

124 

110 

105 

EM52 

•ASCIZ 

45 076422 

103 

101 

116 

EH53 

.ASCIZ 

46 076503 

122 

105 

114 

EM54 

.ASCIZ 

47 076576 

124 

111 

115 

EM55 

.ASCIZ 

48 076643 

122 

110 

057 

EM56 

.ASCIZ 

49 076706 

120 

117 

122 

EM57 

.ASCIZ 

50 076747 

101 

124 

124 

EM60 

.ASCIZ 

51 077013 

101 

124 

124 

EM61 

.ASCIZ 

52 077045 

101 

124 

124 

EN62 

.ASCIZ 

53 077113 

104 

122 

111 

EM63 

.ASCIZ 

54 077161 

101 

124 

124 

EM64 

.ASCIZ 

55 077234 

126 

117 

114 

EM65 

.ASCIZ 


/WRONG DRIVE TYPE/ 

/DRIVE NOT ON LINE/ 

/SERIAL NUMBER READ THROUGH EACH PORT NOT THE SAME/ 

/DRIVE NOT SEIZED BY PORT/ 

/WRONG STATUS SEEN BY THE SEIZING PORT/ 

/REGISTER CONTENTS WERE SEEN BY OPPOSITE PORT - DRIVE WAS SEIZED/ 
/REGISTER CONTENTS WRONG AFTER RELEASE OR TIMEOUT/ 

/REGISTER CONTENTS WRONG/ 

/CONTROL BUS PARITY ERROR READING INDICATED REGISTER/ 

/DRIVE NOT SEIZED BY DRIVE CLEAR COMMAND/ 

/READIN PRESET DOES NOT SET VOLUME VALID FOR THE PORT/ 

/VOLUME VALID SET ON THE WRONG PORT/ 

/ATTN BIT WRONG AFTER TIMEOUT - REQUEST NOT SET/ 

/ATTN BIT WRONG AFTER RELEASE - REQUEST SET/ 

/ATTN BIT WRONG AFTER RELEASE - REQUEST NOT SET/ 

/DRIVE NOT SEIZED WHEN ATTN BIT FOR PORT CLEARED/ 

/DRIVE SEIZED WHEN ZERO WRITTEN IN ATTN BIT/ 

/DRIVE NOT IN NEUTRAL AFTER TIMEOUT - REQUEST NOT SET/ 

/TIMEOUT CLEARED THE DRIVE'S ERROR BIT/ 

/RELEASE COMMAND RELEASED DRIVE WITH ERRORS SET/ 

/TIMEOUT ONE-SHOT DID NOT RETRIGGER/ 

/DRIVE NOT IN NEUTRAL AFTER RELEASE - REQUEST NOT SET/ 

/REGISTER WRONG AFTER RELEASE WITH REQUEST SET/ 

/DRIVE SEIZED BY RELEASE COMMAND ISSUED WHEN DRIVE IN NEUTRAL/ 

/DRIVE IN NEUTRAL AFTER RELEASE - REQUEST SET/ 

/ATTN BIT WRONG AFTER RECALIBRATE COMMAND/ 

/DRIVE RETURNED TO NEUTRAL IF DRIVE CLEAR GIVEN WHILE DRIVE SEIZED/ 
/DRIVE RETURNED TO NEUTRAL IF MASSBUS INI f GIVEN WHILE DRIVE SEIZED/ 
/TIMEOUT ONE SHOT FIRED WITHOUT REGISTER ACCESS/ 

/TIMEOUT HAS NOT OCCURRED WITHIN 2 SECONDS/ 

/DRIVE IS NON-EXISTENT ('NED* BIT SET)/ 

/ATTN BIT FOR PORT NOT RESET BY MASSBUS CLEAR/ 

/TIMEOUT CLEARED THE ATTENTION BIT/ 

/DRIVE NOT IN NEUTRAL OR SEIZED AFTER ATTN BIT WRITTEN/ 

/DRIVE IN NEUTRAL AFTER ATTENTION BIT WRITTFN/ 

/WRITE ATTENTION BIT DID NOT SET PORT REQUEST/ 

SPORT SELECT SWITCH ON DRIVE, NOT IN 'A/8'8 
/CAN'T ACCESS DRIVE THROUGH EITHER PORT/ 

/ATTN BIT FOR SEIZING PORT NOT CLEARED BY MASSBUS INIT/ 

/ATTN BIT FOR OPPOSITE PORT CLEARED BY DRIVE CLEAR/ 

/ATTN BIT NOT CLEARED BY MASSBUS INIT, DRIVE IN NEUTRAL/ 

/THE ATTN BIT SET AFTER TIMEOUT WITH NO REQUEST & 'ERR' SET/ 

/CAN’T READ THE ATTN BIT FROM THE 'OPPOSITE' PORT/ 

/RELEASE COMMAND RECOGNIZED WHEN ISSUED BY NON-SEIZING PORT/ 

/TIMEOUT ONE-SHOT IS LESS THAN 500 MS/ 

BRH/RM DIDN'T RESPOND TO ADDRESSINGS 
/PORT REQUEST FLOP(S) WRONG STATE/ 

/ATTENTION NOT RESET BY WRITING RMAS/ 

/ATTENTION NOT RESET BY GO/ 

/ATTENTION RESET BY GO WHEN NOT SEIZED/ 

/DRIVE SEIZED BY , *UR" CHANGE IN RMMR1/ 

/ATTENTION NOT SET BY *MUR“ CHANGE IN RMMR1/ 

/VOLUME VALID NOT RESET BY 'MUR" IN RMHR1 / 


>>> 


SEQ 0191 
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TEST ERROR MESSAGES 


1 

077306 

124 

105 

123 

DH1 


ASCIZ 

/TEST # 

ERR 

PC 

PORT # REG ADR CONTENTS' 

2 

077357 

124 

105 

123 

DH3 


.ASCIZ 

/TEST # 

ERR 

PC 

REG ADR PORT A PORT B/ 

5 

077426 

040 

040 

040 

DH4 


.ASCII 

/ 



SEIZE ERROR/<CRXLF> 

4 

077465 

124 

105 

123 



.ASCIZ 

/TEST f 

ERR 

PC 

PORT # PORT # REG ADR GOOD BAD/ 

5 

077551 

124 

105 

123 

DH5 


.ASCIZ 

/TEST f 

ERR 

PC 

PORT 1 REG ADR GOOD BAD/ 

6 

077625 

040 

040 

040 

DH7: 

.ASCII 

/ 



RELSNG ERROR/ <CRXLF> 

7 

077664 

124 

105 

123 



.ASCIZ 

/TEST # 

ERR 

PC 

PORT # PORT # REG ADR GOOD BAD/ 

8 

077750 

124 

105 

123 

DH11 

.ASCIZ 

/TEST f 

ERR 

PC 

PORT # REG ADR CONTENTS/ 

9 

100021 

040 

040 

040 

DH13 

.ASCII 

/ 



SEIZE ERROR/<CRXLF> 

10 

100060 

124 

105 

123 



.ASCIZ 

/TEST # 

ERR 

PC 

PORT # PORT # REG ADR CONTENTS/ 

11 

100141 

040 

040 

040 

DH22 

.ASCII 

/ 



RELSNG SEIZE/<CRXLF> 

12 

100200 

124 

105 

123 



.ASCIZ 

/TEST # 

ERR 

PC 

PORT # PORT #/ 

13 

100237 

040 

040 

040 

DH23 

.ASCII 

/ 



SEIZE/<CRXLF> 

14 

100266 

124 

105 

123 



.ASCIZ 

/TEST # 

ERR 

PC 

PORT # REG ADR CONTENTS/ 

15 

100337 

040 

040 

040 

DH2 6 

.ASCII 

/ 



RELSNG/<CRXLF> 

16 

100367 

124 

105 

123 



.ASCIZ 

/TEST f 

ERR 

PC 

PORT #/ 

17 

100416 

040 

040 

040 

DH31. 

.ASCII 

/ 



RELSNG RQSTNG/<CRXLF> 

18 

100456 

124 

105 

123 



.ASCIZ 

/TEST # 

ERR 

PC 

PORT # PORT #/ 

19 

100515 

124 

105 

123 

DH36 

.ASCIZ 

/TEST # 

ERR 

PC 

PORT #/ 

20 

100544 

124 

105 

123 

DH42 

.ASCIZ 

/TEST # 

ERR 

PC/ 


21 

100563 

040 

040 

040 

0H44 

.ASCII 

/ 



RELSNG ERROR/<CRXLF> 

22 

100622 

124 

105 

123 



.ASCIZ 

/TEST # 

ERR 

PC 

PORT f PORT #/ 

23 

100661 

040 

040 

040 

DH46 

.ASCII 

/ 



PORT A PORT B/<CRXLF> 

24 

100721 

124 

105 

123 



.ASCIZ 

/TEST # 

ERR 

PC 

rmds mm/ 

25 

100756 

124 

105 

123 

DH55 

.ASCIZ 

/TEST # 

ERR 

PC 

PORT f TIMEOUT VALUE (IN MS)/ 

26 

101034 

044 

122 

115 

DH56 

.ASCIZ 

/SRMADR/ 




27 

101043 

124 

105 

123 

DH57 

.ASCII 

/TEST # 

ERR 

PC 

PORT A PORT B/ 

28 

29 

30 

31 

101115 

040 

040 

040 



.ASCIZ 

/ 



EXPCTD RECEVD EXPECTD RECEVD/ 





.EVEN 





32 

101176 

001246 

001116 

001240 

DTI 


.WORD 

TS TNUN . SERRPC .PTNBR , SBDADR , SBDDAT . 0 

33 

101212 

001246 

001116 

001122 

DT3 


.WORD 

TSTNUM, SERRPC, SBD ADR, SGDDAT, SBDDAT. 0 

TSTNUM, SERRPC PTNBR . SBDADR .SGDDAT . SBDDAT , 0 

34 

101226 

001246 

001116 

001240 

DT5 


.WORD 

35 

101244 

001246 

001116 

001244 

DT6 


.WORD 

TSTNUM, SERRPC, OPPRT, SBDADR, SBDDAT, 0 

36 

101260 

001246 

001116 

001242 

DT7 


.WORD 

TSTNUM, SERRPC, SEIZPT, PTNBR, SBDADR, SGDDAT, SBDDAT, 0 

37 

101300 

001246 

001116 

001242 

DT13 

.WORD 

T STNUN , SERRPC , SE I ZPT , PTNBR , SBDADR , SBDDAT . 0 

38 

101316 

001246 

001116 

001242 

DT22 

.WORD 

TSTNUN.SERRPC.SEIZPT.PTNBR.O 

39 

101330 

001246 

001116 

001242 

DT23 

.WORD 

TSTNUM .SERRPC .SEIZPT, SBDADR .SBDDAT , 0 

TSTNUM , SERRPC , SE I ZPT , OPPRT , 0 

40 

101344 

001246 

001116 

001242 

DT31 

.WORD 

41 

101356 

001246 

001116 

001242 

DT36 

.WORD 

TSTNUM, SERRPC, SEIZPT, 0 

T STNUN. SERRPC, PTNBR, 0 

42 

101366 

001246 

001116 

001240 

DT37 

.WORD 

43 

101376 

001246 

001116 


DT42 

.WORD 

TSTNUN.SERRPC.O 


44 

101404 

001246 

001116 

001170 

DT46 

.WORD 

TSTNUN, SERRPC, STNP2,STHP3,0 

45 

101416 

001246 

001116 

001244 

DT54 

.WORD 

TSTNUN.SERRPC.OPPRT.SEIZPT.O 

46 

101430 

001246 

001116 

001242 

DT55 

.WORD 

TSTNUN.SERRPC.SEIZPT.TINE.O 

47 

101442 

001304 

000000 


DT56 

.WORD 

SRNADR.O 




48 

49 

50 

101446 

001246 

001116 

001164 

DT57 

.WORD 

TSTNUH , SERRPC , STNPO , STMP1 , STNP2 , STHP3 . 0 

101464 

000 

000 

000 

DF1 


.BYTE 

0.0, 0,0,0 



51 

101471 

000 

000 

000 

DF5 


.BYTE 

0.0.0. 0,0.0 



52 

101477 

000 

000 

000 

DF7 


.BYTE 

0.0. 0.0. 0.0.0 


53 

101506 

000 

000 

000 

DF31 

.BYTE 

o.o.o.o 




54 

101512 

000 

000 

000 

DF 36 

.BYTE 

0,0,0 




55 

101513 

000 

000 


DF42 

.BYTE 

0.0 




56 

101517 

000 

000 

000 

DF55 

.BYTE 

0. 0,0,1 




57 

101523 

000 



DF56 

.BYTE 

0 





SEQ 0192 
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CZRNHAO RM80 DUAL PORT PT1 rttCRO V04.00 15-JAN-82 07:09:22 PA6E 24-1 
TEST ERROR MESSAGES 

58 .EVEN 


L 15 


SEO 0193 
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-S8TTL CONSTANTS, TABUS. ETC 
.•TABLE OF TEST STARTING ADDRESSES 


CONSTANTS, TABLES. ETC 

1 

2 

3 

4 


5 

101524 

003364 

8 

101526 

004676 


101530 

006244 


101532 

007612 


101534 

010742 


101536 

012072 


101540 

012544 


101542 

013216 


101544 

014462 


101546 

015726 


101550 

017046 


101552 

020166 


101554 

021566 


101556 

023166 


101560 

024112 


101562 

C25036 


101564 

026104 


101566 

027152 


101570 

031226 


101572 

031752 

11 

101574 

033146 


101576 

034342 


101600 

036036 


101602 

037532 


101604 

041226 


101606 

042722 


101610 

044200 


101612 

045324 


1016V 

046222 


101616 

047120 

14 

101620 

050116 


101622 

051114 


101624 

053100 


101b26 

055064 


101630 

056340 


101632 

057614 


101634 

060444 


101636 

061274 

15 



16 



17 



18 

101640 

001 

19 

101641 

002 

20 

101642 

004 

21 

101643 

010 

22 

101644 

020 

23 

101645 

040 

24 

101646 

100 

25 

101647 

200 

cO 

29 

101650 

000052 

jU 

31 


000200 


TSTADR: .WORD TST1 
.WORD TST2 
.WORD TST3 
.WORD TST4 
.WORD TST5 
.WORD TST6 
.WORD TST7 
.WORD TST10 
.WORD TST11 
.WORD TST12 
.WORD TST13 
.WORD TST14 
.WORD TST15 
.WORD TST16 
.WORD TST17 
.WORD TST20 
.WORD TST21 
.WORD TST22 
.WORD TST23 
.WORD TST24 
.WORD TST25 
.WORD TST26 
.WORD TST27 
.WORD TST30 
.WORD TST31 
.WORD TST32 
.WORD TST33 
.WORD TST34 
.WORD TST35 
.WORD TST36 
.WORD TST37 
.WORD TST40 
.WORD TST41 
.WORD TST42 
.WORD TST43 
.WORD TST44 
.WORD TST45 
.WORD TST46 


.•ATTENTION BIT TABLE 


ATA8IT: 

.BYTE 

1 


•BYTE 

2 


.BYTE 

4 


.BYTE 

10 


.BYTE 

20 


.BYTE 

40 


.BYTE 

100 


.BYTE 

200 

MAXTN: 

.WORD 

52 

.END 

200 



STARTING ADDRESS Of TEST 1 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 
STARTING ADDRESS OF TEST 


ATTENTION BIT FOR DRIVE 0 
ATTENTION BIT FOR DRIVE 1 
ATTENTION BIT FOR DRIVE 2 
ATTENTION BIT FOR DRIVE 3 
ATTENTION BIT FOR DRIVE 4 
ATTENTION BIT FOR DRIVE 5 
ATTENTION BIT FOR DRIVE 6 
ATTENTION BIT FOR DRIVE 7 

MAXIMUM TEST NUMBER 
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C2RNHA0 RM80 DUAL 
SYMBOL TABLE 

ADDRIS 072570 

PORT PT1 MACRO V04.00 

CR = 000015 

1 5 -JAN-82 07:09:22 PAGE 25-1 

DT42 101376 

EM56 

076643 

OPE = 020000 

SEQ 0194 

b 

C 

D 

ADRERR 072351 

CRLF 

= 000200 

DT46 

101404 

EM57 


OPI * 020000 


E 

AOE = 001000 

ASR1 001236 

DCK 

= 100000 

DT5 

101226 

EM6 

• j • M»Bg§l 

OPPRT 001244 


F 

DDISP 

= 177570 

DT54 

101416 

EM60 


OR = 000200 


G 

ATA = 100000 

DF1 

101464 

DT55 

101430 

EM61 


PAR = 000010 


H 

ATABIT 101640 

DF31 

101506 

DT56 

101442 

EM62 

• ii» ifSIl 

PAT s 000020 


1 

ATO = 000001 

DF36 

101512 

DT57 

101446 

EM63 

« 1 1 raSH 

PFECN 067422 


J 

ATI = 000002 

DF42 

101515 

DT6 

101244 

EM64 

077161 

PFECH1 067432 


t 

AT2 = 000004 

DF5 

101471 

DT7 

101260 

EM65 

077234 

PFECH2 067514 


L 

AT3 = 000010 

DF55 

101517 

DVA = 

004000 

EM7 

073200 

PFECH3 067546 


M 

AT4 = 000020 

DF56 

101523 

DVC = 

000200 

ENTERA 

072322 

PFECH4 067556 


N 

AT5 = 000040 

DF7 

101477 

ECH = 

000100 

ERR - 

040000 

PFTSTN 067562 


B 

AT6 = 0001 GO 

DH1 

077306 

ECI = 

004000 

ERROR = 

104000 

PGE = 002000 


C 

AT7 c 000200 

DH11 

077750 

EMTVEC= 

000030 

errvec- 

I iTlTl I wi 

PGM = 001000 


D 

A16 = 000400 

DH13 

100021 

EMI 

072654 

EXEC 

003062 

PIP = 020000 


E 

A17 = 001000 

DH22 

100141 

EM10 

073261 

FER = 

000020 

PIRQ = 177772 


F 

BADNO 072530 

DH23 

100237 

EM11 

073311 

FMT16 = 

010000 

PIRQVE- 000240 


G 

BADTMO 002160 

DH26 

100337 

EMI 2 

073375 

FO = 

I* « ». i iWBI 

PORTA 001224 


H 

BAI = 0 010 

DH3 

077357 

EMI 3 

073445 

FI = 

pT • ■ 

PORTAI 072374 


I 

BITO - . >0001 

DH31 

100416 

EM14 

073532 

F2 = 

000010 

PORTB 001226 


J 

BITOO - 000001 

DH36 

100515 

EMI 5 

073575 

F3 

000020 

PORTBI 072423 


K 

BIT01 = 000002 

DH4 

077426 

EMI 6 

073654 

F4 = 

000040 

PORTC 001230 


L 

BIT02 = 000004 

DH42 

100544 

EMI 7 

073727 

GO 


PRO - 000000 


M 

BIT03 = 000010 

DH44 

100563 

EM 2 

072675 

GTSUR = 

104406 

PR1 = 000040 


N 

BIT04 = 000020 

DH46 

100661 


074006 

HCE = 

000200 

PR 2 - 000100 


B 

BIT05 = 000040 

DH5 

077551 

v- • SjW 3 ^ Ml H £ ?' 

074066 

HC1 = 

002000 

PR3 = 000140 


C 

BIT06 = 000100 

DH55 

100756 


074141 

HCRC = 

000400 

PR4 - 000200 


D 

BIT07 = 000200 

DH56 

101034 

EM23 

074226 

HT = 

000011 

PR5 = 000240 


E 

BIT08 = 000400 

DH57 

101043 

EM24 

074274 

IAE = 

002000 

PR6 = 000300 


F 

BIT09 = 001000 

DH7 

077625 

EM25 

074353 

IBSAVE 

067222 

PR 7 = 000340 


G 

BIT1 = 000002 

DISPLA 001142 

EM26 

074416 

IE 

000100 

PS = 177776 


H 

BIT10 = 002000 

DISPRE 000174 

EM27 

074503 

ILF = 

[MM ilMSSlll 

PSEL = 002000 


I 

BIT11 = 004000 

DLT 

= 100000 

EM3 

072717 

ILR = 

(• • 1 1 irBHH 

PSW = 177776 


J 

BIT12 = 010000 

DMD 

= 000001 


074561 

IOTVEC= 

000020 

PTNBR 001240 


K 

BIT13 = 020000 

DPE 

= 000010 


074656 

IR = 

000100 

PURVEC= 000024 


L 

BIT14 = 040000 

DPR 

= 000400 


074733 

IVC = 

010000 

RDCHR = 104410 


M 

BIT15 = 100000 

DRQ 

= 004000 


075004 

KYBCTL 

001300 

RDLIN = 104411 


N 

BIT2 = 000004 

DRY 

= 000200 


075106 

LBC = 

iI'KJiIiIiHEIII 

RDOCT = 104412 


B 

BIT3 = 000010 

DSUR 

= 177570 


075211 

LBT = 

liIiMiWI 

RDY = 000200 


C 

BIT4 - 000020 

DTE 

= 010000 


075270 

LF 

iTiTiIi l r JjfBfffi 

RELERR 001254 


D 

BITS - 000040 

DTOO 

= 000001 


075342 

LSC = 


RELOK = 000001 


E 

BIT6 = C00100 

DT01 

= 000002 


073001 

MAXTN 

101650 

RESREG= 104414 


F 

BIT7 = 000200 

DT02 

= 000004 


075410 

MCPE = 

020000 

RESVEC> 000010 


G 

81 T8 ~ 000400 

DT03 

= 000010 


075465 

MDPE = 

000400 

RMAS = 000016 


H 

BIT9 = 001000 

DT04 

= 000020 


075527 

MOH = 

020000 

RMBA = 000004 


I 

BPTVEC= 000014 

DT05 

= 000040 


075615 

MOL = 

010000 

RMCS1 = 000000 


J 

CHANGE 003236 

DT06 

= 000100 

EM44 

075672 

MUR = 

001000 

RMCS2 = 000010 


K 

CHGAOR 001302 

DT07 

= 000200 

EM45 

075747 

MXF = 

001000 

RMDA = 000006 


L 

CKCLK 066060 

DT08 

= 000400 

EM46 

076021 

NBA = 

■ ■ 

RMDB = 000022 


M 

CKCLK1 066130 

DTI 

101176 

EM47 

076070 

NED = 

010000 

RMDC = 000034 


N 

CKCLK2 066172 

DT13 

101300 

EM5 

073032 

NEM = 

004000 

RMDS = 000012 


B 

CKCLK3 066202 

DT22 

101316 


076156 

NOATA = 


RMDT = 000026 


C 

CKERR 001250 

DT23 

101330 

EM51 

076240 

NOCLOC 

072452 

RMEC1 = 000044 


0 

CKSWR = 104407 

DT3 

101212 

EM52 

076327 

NOSE I Z 

001252 

RMEC2 = 000046 


E 

CLOCK 066212 

DT31 

101344 

EM53 

076422 

NTRH 


RMER1 = 000014 


F 

CLR = 000040 

DT36 

101356 

EM54 

076503 

OFD = 


RMER2 = 000042 


G 

CPSAVE 067220 

DT37 

101366 

EM55 

076576 

OH 

000001 

RMLA = 000020 


H 

I 
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RMMR1 = 

000024 

TBITVEs 

000014 

TSTADR 

101524 

RHMR2 = 

000040 

TESTNO 

072510 

TSTERR 

072557 

RMOF = 

000032 

TEST1 

003422 

TSTNUM 

001246 

RMR = 

000004 

TEST10 

013254 

TST1 

003364 

RMSN = 

000030 

TEST11 

014520 

TST1AA 

003346 

RMWC = 

000002 

TEST12 

015764 

TST10 

013216 

RQA = 

100000 

TEST13 

017104 

TST11 

014462 

ROB = 

040000 

TEST14 

020224 

TST12 

015726 

RQSTA 

001232 

TEST15 

021624 

TST13 

017046 

RQSTB 

001234 

TEST16 

023224 

TST14 

020166 

R6 =: 

1000006 

TEST17 

024150 

TST15 

021566 

R 7 =: 

1000007 

TEST2 

004734 

TST16 

023166 

SAVREG= 

104413 

TEST20 

025074 

TST17 

024112 

SC = 

100000 

TEST21 

026142 

TST2 

004676 

SCOPE = 

000004 

TEST22 

0272 lO 

TST20 

025036 

SCO s 

000100 

TEST23 

031264 

TST21 

026104 

SCI = 

000200 

TEST24 

032010 

TST22 

027152 

SC2 = 

000400 

TEST25 

033204 

TST23 

031226 

SC 3 = 

001000 

TEST26 

034400 

TST24 

031752 

SC4 = 

002000 

TEST27 

036074 

TST25 

033146 

SE1ZPT 

001242 

TEST3 

006302 

TST26 

034342 

Ski = 

100000 

TEST30 

037570 

TST27 

036036 

STACK = 

001100 

TEST31 

041264 

TST3 

006244 

START 

002240 

TEST32 

042760 

TST30 

037532 

START1 

002250 

TEST33 

044236 

TST31 

041226 

START2 

002256 

TEST34 

045362 

TST32 

042722 

STKLMT= 

177774 

TEST35 

046260 

TST33 

044200 

STOP 

066650 

TEST36 

047156 

TST34 

045324 

SUR 

001140 

TEST37 

050154 

TST35 

046222 

SUREG 

000176 

TEST4 

007650 

TST36 

047120 

SWO = 

000001 

TEST40 

051152 

TST37 

050116 

SWOO - 

000001 

TEST41 

053136 

TST4 

007612 

SU01 = 

000002 

TEST42 

055122 

TST40 

051114 

SW02 - 

000004 

TEST43 

056376 

TST41 

053100 

SWO 3 = 

000010 

TEST44 

057652 

TST42 

055064 

SW04 = 

000020 

TEST45 

060502 

TST43 

056340 

SW05 r 

000040 

TEST46 

061332 

TST44 

057614 

SW06 

000100 

TEST47 

062216 

TST45 

060444 

SWO 7 - 

000200 

TESTS 

011000 

TST46 

061274 

SWC8 * 

000400 

TEST50 

063102 

TST47 

062160 

SW09 * 

001000 

TEST51 

064374 

TST5 

010742 

SW1 

000002 

TEST6 

012130 

TST50 

063044 

swio - 

002000 

TEST7 

012602 

TST508 

064114 

SWll 

004000 

TIME 

001256 

TST51 

064336 

SW12 

010000 

TIMEA 

001262 

TST51B 

065406 

syl 3 - 

020000 

TIMEAM 

001266 

TST52 

065630 

SW14 

040000 

TIMEAP 

001264 

TST6 

012072 

SWT 5 

; ooooo 

TIMES 

001270 

TST7 

012544 

sw? 

000004 

TIMEBM 

001274 

TYPDS = 

104405 

SW3 

000010 

TIMEBP 

001272 

TYPE = 

104401 

SW4 

000070 

TIMES 

001276 

TYPOC * 

104402 

sws 

000040 

TKVEC = 

000060 

TYPON = 

104404 

'■•wt) 

000100 

TOLER 

066254 

TYPOS = 

104403 

sW? 

000200 

TPVEC = 

000064 

UNS = 

040000 

SW8 

000400 

TRAPVE= 

000034 

UPE = 

020000 

SW9 

00 1000 

TRE = 

040000 

UO = 

000001 

f 

040000 

TRTVEC- 

000014 

Ul 

000002 


1 5 


SEQ 0195 


U3 

VV = 

VVSET = 

UATCH 

WCE = 

WCF = 

WLE = 

URL = 

SAUT06 

S8DADR 

J8DDAT 

SBELL 

SCHARC 

SCKSUR 

SCMTA6 

SCM1 = 

SCM2 = 

SCM3 = 

SCM4 = 

(CNTLC 

(CNTLG 

(CNTLU 

(CRLF 

SDBLK 

SD0A6N 

(DTBL 

(ENDAD 

(ENDCT 

(ENULL 

(EOP 

(EOPCT 

(ERFLG 

SERMAX 

(ERROR 

(ERRPC 

JERRTB 

(ERRTY 

SERTTL 

SESCAP 

(FILLC 

(FILLS 

(GDADR 

(GDDAT 

(GET42 

JGTSWR 

(GT42P 

$HD = 

(HIOCT 

$ICNT 

(INI AG 

(ITEMS 

$LF 

(LKCSB 

(LKCSR 

SLKS 

(LLVEC 

JLPADR 


000004 

000100 

000001 

001260 

040000 

000040 

004000 

004000 

001134 

001122 

001126 

001202 

070052 

071040 

001100 

000001 

000002 

000001 

000005 

071736 

071750 

071743 

001207 

070520 

066050 

070510 

066040 

065676 

066054 

065632 

065670 

001103 

001115 

066676 

001116 

001310 

067224 

001112 

001200 

001156 

001155 

001120 

001124 

066030 

071130 

066024 

000000 

072136 

001104 

001135 

001114 

001210 

001214 

001212 

001220 

001222 

001106 


SLPERR 

SLPVEC 

(MNEW 

SMSWR 

(MXCNT 

(NULL 

(NUTST= 

SOCNT 

(OMODE 

SOVER 

(PASS 

sauES 

SRDCHR 

(RDLIN 

SRDOCT 

SRDSZ = 

SREGAD 

(REGO 

JRESRE 

(RMADR 

(RMVEC 

SRTNAD 

TSAVRE 

(SCOPE 

(SETUP= 

(STUP = 

(SVLAD 

(SVPC = 

(SWR = 

(SWRMK= 

(TIMES 

(TKB 

(TKCNT 

(TKINT 

(TKQENs 

(TKQIN 

(TKQOU 

(TKQSR 

(TKS 

(TKSRV 

(TMPO 

(TMP1 

(TMP2 

(TMP3 

(TMP4 

(TN = 

(TPB 

(TPFLG 

(TPS 

(TRAP 

(TRAP2 

(TRP = 

(TRPAD 

(TSTNM 

(TTYIN 

(TYPDS 

(TYPE 


001110 

001216 

071766 

07^755 

066646 

001154 

000000 

070300 

070302 

066632 

001100 

001206 

071402 

071472 

072000 

000010 

001160 

001162 

072176 

001304 

001306 

066052 

072140 

066314 

000127 

177777 

066622 

000210 

166000 

000000 

001176 

001146 

070530 

070540 

070537 

070532 

070534 

070536 

001144 

070610 

001164 

001166 

001170 

001172 

001174 

000053 

001152 

001157 

001150 

072234 

072256 

000015 

072270 

001102 

071726 

070304 

067564 



SEO O' r' 


SSGET4= 

SOFILL 


. ABS. 101652 000 

000000 001 

ERRORS OETECTED: 0 

VIRTUAL MEMORY USED: 61952 WORDS ( 242 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR 71 PAGES 
,A: CZRNHA/ C =A : C ZRNHA . DOC , C ZRNHA , S YSMAC/H 
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STYPEC 

STYPEX 


067734 

070054 


STYPOC 070102 
STYPON 070116 


STYPOS 070056 
SXOFF = 000023 


$XON = 000021 
SXTSTR 066336 


000000 

070301 
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SSGET4 

10-1 

10-1# 






S0F1LL 

16-1 

16-1# 

16-1* 

16-1* 




S40CAT 

12-1 

13-1 






SAUTOB 

6-0# 

9-28* 

18-1 

18-1 

18-1 



S8DADR 

6-0# 

9-149* 

9-149* 

9-149* 

9-149* 

9-156* 

9-156* 


9-164* 

9-164* 

9-164* 

9-267* 

9-267* 

9-267* 

9-267* 


9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 


9-267* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 


9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 


9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 


9-357* 

9-384* 

9-384* 

9-397* 

9-397* 

9-443* 

9-443* 


9-443* 

9-466* 

9-466 

9-466* 

9-466* 

9-466* 

9-466* 


9-523* 

9-523* 

9-52^* 

9-523* 

9-523* 

9-547* 

9-547* 


9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 


9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 


9-663* 

9-663* 

9-663* 

9-699* 

9-699* 

9-699* 

9-699* 


9-719* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 


9-821* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 


9-895* 

9-895* 

9-895* 

9-953* 

9-953* 

9-953* 

9-953* 


9-953* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 


9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-:30* 

9-: 30* 

9-: 30* 


9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-:53* 

9-: 53* 

9-: 53* 


9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 69* 

9-; 69* 


9-<19* 

9-<19* 

9-<19* 

9-<36* 

9-<36* 

9-<36* 

9-<36* 


9-=05* 

9-=05* 

9-=05* 

9-=05* 

9-=05* 

9-=99* 

9-=99* 


9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 


9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 


9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9-714* 

9-714* 


9-714* 

9-768* 

9-768* 

9-788* 

9-788* 

9-856* 

9-856* 


9-A45* 

9-A45* 

9-A45* 

9-A46* 

9-A46* 

9-A46* 

9-A46* 


9-A75* 

9-A76* 

9-A76* 

9-A76* 

9-A76* 

9-A76* 

9-A76* 


24-37 

24-39 






tBDDAT 

6-0# 

9-149 

9-149 

9-149 

V-149 

9-149* 

9-149* 


9-164 

9-164 

9-164 

9-164 

9-164 

9-164* 

9-164* 


9-267 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 


9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 


9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 


9-289* 

9-289* 

9-289* 

9-339 

9-339 

9-339 

9-339 


9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-357 


9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 


9-384* 

9-384* 

9-384* 

9-397 

9-397 

9-397* 

9-397* 


9-443 

9-443 

9-443 

9-443 

9-443* 

9-443* 

9-443* 


9-443* 

9-443* 

9-443* 

9-466 

9-466 

9-466 

9-466 


9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 


9-523 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 


9-547 

9-547 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 


9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 


9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 


9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622* 


9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-647 

9-647 


9-647* 

9-647* 

9-647* 

9-647* 

9-663 

9-663 

9-663 


9-663* 

9-663* 

9-663* 

9-699 

9-699 

9-699 

9-699 


9-699* 

9-699* 

9-699* 

9-699* 

9-699* 

9-719 

9-719 


9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 


9-791 

9-791 

9-791 

9-791* 

9-791* 

9-791* 

9-791* 


9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791 * 

9-791* 


SEQ 0197 


9-156* 

9-156* 

9-164* 

9-164* 

9-164* 

9-164* 

9-164* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-339* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-466* 

9-466* 

9-466* 

9-466* 

9-523* 

9-523* 

9-523* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-647* 

9-647* 

9-647* 

9-647* 

9-663* 

9-699* 

9-699* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-821* 

9-872* 

9-872* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9 975* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-;05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-;05* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-<19* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-=05* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9- =99* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-856* 

9-856* 

9-878* 

9-878* 

9-87e* 

9-878* 

9-A45* 

9-A46* 

9-A46* 

9-A46* 

9-A46* 

9-A75* 

9-A75* 

9-A75* 

9-A76* 

9-A76* 

24-32 

24-33 

24-34 

24-35 

24-36 

9-156 

9-156 

9-156* 

9-156* 

9-164 

9-164 

9-164 

9-164* 

9-164* 

9-171* 

9-172 

9-267 

9-267 

9-267 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-289 

9-289 

9-289 

9-289 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-339 

9-339 

9-339 

9-339 

9-339* 

9-339* 

9-339* 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357* 

9-357* 

9-384 

9-384 

9-384* 

9-384* 

9-384* 

9-397* 

9-397* 

9-397* 

9-397* 

9-443 

9-443 

9-443 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-466 

9-466 

9-466 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-523 

9-523 

9-523 

9-523 

9-523 

9-523* 

9-523* 

9-523* 

9-547 

9-547 

9-547 

9-547 

9-547* 

9-547* 

9-547* 

9-547* 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

?-6 22* 

9-647 

9-647 

9-647* 

9-647* 

9-647* 

9-647* 

9-647* 

9-663 

9-663* 

v 663* 

9-663* 

9-663* 

9-663* 

9-663* 

9-699 

9-699 

9-699* 

9-699* 

9-699* 

9-699* 

9-699* 

9-719 

9-719 

9-719 

9-719 

9-719* 

9-719* 

9-719* 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-821 

9-821 

9-821* 

9-021* 

9-821* 

9-821* 

9-821* 


SEQ 0196 


CZRNHAO RM80 DUAL PORT PT1 NACRO ¥04.00 15-JAN-82 07:09:22 PAGE S-* 
CROSS REFERENCE TABLE (CREF ¥04-00 ) 


S8ELL 

SCHARC 

SCKSWR 

SCH1 

SCH2 

SCM3 

SCM4 

SCMTAG 

SCNTLC 

tCNTLG 

SCNTLU 

SCRLF 

SOB IK 

SDOAGN 

SDTBL 

SEND AD 

SENDCT 

SENULL 

SEOP 

SEOPCT 

SERFLG 

SERNA X 

SERROR 

SERRPC 

SERRTB 


9 821* 
9-872* 
9-895* 
9-953 
9-975 
9-975* 
9-: 30 
9-: 30* 
9-: 53 
9-: 53* 
9-; 05 
9-; 69 
9-<19* 
9-<36* 
9-=05 
9-=99 
9-=99* 
9-=99* 
9->24 
9->24* 
9->96 
9->96* 
9-714* 
9-788* 
9-378 
9-A45* 
9-A75 
9-A76* 
6 - 0 # 
15-1 
18-1# 
6-0 
6-0 
6-0 
6-0 
6 - 0 # 
6 - 0 # 
18-1 
18-1 
18-1 
6 - 0 # 
15-1 
17-1 
10-1 
17-1 

5- 5 
9-23 

10 - 1 # 

10 - 1 # 

9-23* 

6 - 0 # 
6 - 0 # 
9-23 
6 - 0 # 

24-38 

8 - 0 # 


9-872 
9-872* 
9-895* 
9-953* 
9-975 
9-975* 
9-: 30 
9-: 30* 
9-: 53 
9-: 53* 
9-; 05* 
9-;69 
9-<19* 
9-<36* 
9-=05 
9-=99 
9-=99* 
9-=99* 
9->24 
9->24* 
9->96 
9-714 
9-714* 
9-788* 
9-378 
9-A45* 
9-A75 
9-A76* 
13-1 
15-1# 
21-1 
6-0 
6-0 
6-0 
6-0 
6 - 0 # 
9-23 
18-1 
18-1# 
18-1 
9-48 
18-1 
17-1 
10-1 
17-1# 
9-28 
10 - 1 # 


10-1 

12-1 

9-23* 

13-1# 

13- 1 
24-39 

14- 1 


9-872 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975- 

9-: 30 

9-: 30 

9-: 30 

9-:30 

9-:50 

9-:30 

9-:30 

9-: 30 

9-:3C 

9-: 30 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* . 

9-: 30* 

9-:30* 

9-:30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-:53 

9-: 53 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-:53* 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-;05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-;69 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-<19 

9-<19 

9-<19 

9-<19* 

9-<19* 

9-<19* 

9-<1 9* 

9-<l9* 

9-<36 

9-<36 

9-<36 

9-<36* 

9-<36* 

9-<36* 

9-<36* 

9-<36* 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-=05 

9-=05 

9-=05 

9-=05 

9-=05* 

9-=05* 

9-=05* 

9-=05* 

9-=05* 

9-=05* 

9-=99 

9-_99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9- =99 

9-=99 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9- =99* 

9-=99* 

9-=99* 

9-=99* 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->96 

9->96 

9- >96 

9->96 

9->96 

9->96 

9->96 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714* 

9-768* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-768 

9-768 

9-768* 

9-768* 

9-768* 

9-788 

9-788 

9-788* 

9-788* 

9-356 

9-356 

9-356 

9-356* 

9-356* 

9-356* 

9-356* 

9-356* 

9-356* 

9-356* 

9-378 

9-378* 

9-378* 

9-378* 

9-378* 

9-378* 

9-378* 

9-378* 

9-A45 

9-A45 

9-A45 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A46 

9-A46 

9-A46 

9-A46 

9-A46* 

9-A46* 

9-A46* 

9-A46* 

9-A75 

9-A75* 

4-32 

9-A75* 

24-33 

9-A75* 

24-34 

9-A75* 

24-35 

9-A75* 

24-36 

9-A75* 

24-37 

9-A76 

24-39 

9-A76 

9-A76 

9-A76 

9-A76* 

9-A76* 


15-1* 

21-1 

6 - 0 # 

6 - 0 # 


15-1* 15-1* 


gvN 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0 

6-0# 

6-0# 

6-0# 

6-0# 

9-23 

18-1 

9-23 

18-1 

9-23 

18-1# 

9-23 

9-23 

9-23 







18-1# 

9-67 

18-1 

17-1# 

10-1# 

9-103 

18-1 

10-1 

18-1 

13-1 

19-1 

13-1 

19-1 

13-1 

14-1 

14-1 

14-1 

14-1 

15-1 

15-1 

10-1# 

13-1 











10-1# 

12-1 

9-75* 

12-1 

12-1 

12-1 

12-1 

12-1* 

13-1 

13-1 

13-1* 






13-1 

24-40 

13-1 

24-41 

13-1* 

24-42 

13-1* 

24-43 

r\j— » 

i i 

4* 

rv>— * 

i l 

VSI 

24-32 

24-46 

24-33 

24-48 

24-34 

24-35 

24-36 

24-37 


SEQ 0199 
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! SERRTY 

13-1 

14-1# 













IERTTL 

6-0 # 

10-1 

10-1 

10-1* 

13-1 

13-1 

13-1* 








*ESCAP 

6-0# 

9-23* 













SFILLC 

6-0# 

15-1 

15-1 

15-1 











srius 

6-0# 

15-1 

15-1 












SGDADR 

6-0# 














1GDDAT 

6-0# 

9-149 

9-149 

9-149* 

9-149* 

9-149* 

9-149* 

9-156 

9-156 

9-156* 

9-156* 

9-164 

9-164 

9-164 


9-164 

9-164* 

9-164* 

9-164* 

9-164* 

9-164* 

9-164* 

9-164* 

9-164* 

9-169* 

9-172 

9-267 

9-267 

9-267 


9-267 

9-267 

9-267* 

9-267* 

9-267* 

9-289 

9-289 

9-289 

9-289 

9-289 

9-289* 

9-289* 

9-289* 

9-339 


9-339 

9-339 

9-339 

9-339 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-357 

9-357 

9-357 


9-357 

9-357 

V-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-384 

9-384 

9-384* 

9-397 

9-397 


9-397* 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-466 


9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-523 

9-523 

9-523 


9-523 

9-523 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-547 

9-547 

9-547 

9-547 

9-547 

9-547* 

9-547* 


9-547* 

9-547* 

9-547* 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599* 

9-599* 


9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-622 

9-622 

9-622 

9-622 

9-622 


9-622 

9-622 

9-622 

9-622 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 


9-622* 

9-647 

9-647 

9-647 

9-647 

9-647 

9-647* 

9-647* 

9-647* 

9-663 

9-663 

9-663 

9-663 

9-663 


9-663* 

9-663* 

9-663* 

9-699 

9-699 

9-699 

9-699 

9-699 

9-699 

9-699* 

9-699* 

9-699* 

9-699* 

9-699* 


9-719 

9-719 

9-719 

9-719 

9-719 

9-719 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-791 

9-791 

9-791 


9-791 

9-791 

9-791 

9-791 

9-791 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-821 


9-821 

9-821* 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-895 


9-895 

9-895 

9-895 

9-895 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-953 

9-953 

9-953 

9-953 


9-953 

9-953 

9-953 

9-953 

9-953 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 


9-953* 

9-953* 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975* 

9-975* 

9-975* 


9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 


9-: 30 

9-: 30 

9-: 30 

9-:30* 

9-.-30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 


9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-:53 

9-: 53 

9-: 53 

9-: 53 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 


9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-:53* 

9-: 53* 

9-;05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-;05* 

9-; 05* 


9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-;05* 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-; 69* 

9-; 69* 

9-; 69* 


9-;69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-<19 

9-<19 

9-<19 

9— <1 9* 

9-<19* 

9-<36 

9-<36 

9-<36 

9-<36* 

9-<36* 


9-<85 

9-<85 

9-<85 

9-<85 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-=05 

9-=05 

9-=05 

9-=05 

9-=05* 


9-=05* 

9-=05* 

9-=05* 

9-=05* 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 


9- -99* 

9-=99* 

9-=V9* 

9-=99* 

9-=99* 

9- =9 9* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 


9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24* 

9->24* 

9->24* 

9->24* 


9->24* 

9->24* 

9->24* 

9->2a* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->96 

9->96 

9->96 

9->96 


9->96 

9->96 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9-714 

9-714 

9-714 

9-714 


9-714 

9-714 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-768 

9-768 

9-768* 

9-788 


9-788 

9-788* 

9-856 

9-856 

9-856 

9-856* 

9-856* 

9-878 

9-878 

9-878 

9-878* 

9-878* 

9-A45 

9-A45 


9-A45 

9-A45* 

9-A45* 

9-A46 

9-A46 

9-A46* 

9-A46* 

9-A75 

9-A75 

9-A75 

9-A75* 

9-A75* 

9-A76 

9-A76 


9-A76* 

9-A76* 

24-33 

24-34 

24-36 










SGET42 

10-1# 














SGT42P 

10-1 

10-1# 













SGTSWR 

18-1# 

21-1 

21-1 












SHD 

4-592 

4-592 

4-592 












tHIOCT 

19-1# 

19-1* 













$ICNT 

6-0# 

9-91* 

12-1 

12-1 

12-1 

12-1* 

12-1* 








SINTAG 

6-0# 

18-1 

18-1 

18-1 

18-1 

18-1* 









SITENB 

6-0# 

13-1 

13-1 

13-1 

13-1 

13-1* 

13-1* 

14-1 







SLF 

6-0# 

13-1 

13-1 

15-1 

15-1 

18-1 

18-1 

18-1 

19-1 

19-1 





SLKCSB 

7-0# 

11-12* 













SLKCSR 

7-0# 

11-8 

11-13* 












SLKS 

7-0# 

11-17 

11-21* 












$1 LVEC 

7-0# 

11-18 













SLPADR 

6-0# 

9-23* 

9-76* 

9-136* 

9-198* 

9-287* 

9-305* 

9-355* 

9-372* 

9-395* 

9-418* 

9-464* 

9-488* 

9-545* 


9-568* 

9-620* 

9-636 > 

9-661* 

9-681* 

9-717* 

9-736* 

9-805* 

9-842* 

9-893* 

9-919* 

9-973* 

9-996* 

9-: 51* 


SEQ 0200 
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9-: 69* 

9-; 24* 

9-:84* 

9-<34* 

9-<55* 

9-=03* 

9-=57* 

9->2 2* 

9->44* 

9-712* 

9-732* 

9-786* 

9-811* 

9-876* 


9-A05* 

9-A73* 

12-1 

12-1 

12-1 

12-1* 









slperr 

6-0# 

9-23* 

9-77* 

9-136* 

9-198* 

9-287* 

9-305* 

9-355* 

9-372* 

9-395* 

9-418* 

9-464* 

9-488* 

9-545* 


9-568* 

9-620* 

9-636* 

9-661* 

9-681* 

9-717* 

9-736* 

9-805* 

9-842* 

9-893* 

9-919* 

9-973* 

9-996* 

9-: 51 * 


9-: 69* 

9-; 24* 

9-; 84* 

9-<19* 

9- <34* 

9-<36* 

9-<55* 

9- =03* 

9-=57* 

9 ->22* 

9->44* 

9-712* 

9-732* 

9-786* 


9-811* 

9-876* 

9-A05* 

9-A73* 











SLPVEC 

7-0# 

11-9 



15-1 










V1AIL 

9-23 

9-28 

12-1 

13-1 










SNNEW 

18-1 

18-1# 













SMSWR 

18-1 

18-1# 













SMXCNT 

12-1 

12-1 

12-1 

12-1# 











SNULL 

6-0# 

15-1 

15-1 

15-1 











JNWTST 

9-136 

9-136 

9-136# 

9-136# 

9-198 

9-198 

9-198# 

9-198# 

9-287 

9-287 

9-287# 

9-287# 

9-305 

9-305 


9-305# 

9-305# 

9-355 

9-355 

9-355# 

9-355# 

9-372 

9-372 

9-372# 

9-372# 

9-395 

9-395 

9-395# 

9-395# 


9-418 

9-418 

9-418# 

9-418# 

9-464 

9-464 

9-464# 

9-464# 

9-488 

9-488 

9-488# 

9-488 # 

9-545 

9-545 


9-545# 

9-545# 

9-568 

9-568 

9-568# 

9-568# 

9-620 

9-620 

9-620# 

9-620# 

9-636 

9-636 

9-636# 

9-636# 


9-661 

9-661 

9-661# 

9-661# 

9-681 

9-681 

9-681# 

9-681# 

9-717 

9-717 

9-717# 

9-717# 

9-736 

9-736 


9-736# 

9-736# 

9-805 

9-805 

9-805# 

9-805# 

9-842 

9-842 

9-842# 

9-842# 

9-893 

9-893 

9-893# 

9-893# 


9-919 

9-919 

9-919# 

9-919# 

9-973 

9-973 

9-973# 

9-973# 

9-996 

9-996 

<--996# 

9-996# 

9-: 51 

9-: 51 


9-:51# 

9-: 51# 

9-: 69 

9-:69 

9-: 69# 

9-: 69# 

9-; 24 

9-; 24 

9-; 24# 

9-; 24# 

9-; 84 

9-; 84 

9-; 84# 

9-; 84# 


9* <34 

9-<34 

9-<34# 

9-<34# 

9-<55 

9-<55 

9— <55# 

9-<55# 

9-=03 

9-=03 

9-=03# 

9-=03# 

9-=57 

9-=57 


9-=57# 

9-~57# 

9->22 

9 ->22 

9 ->22# 

9 ->22# 

9->44 

9->44 

9->44# 

9->44# 

9-712 

9-712 

9-712# 

9-712# 


9-?32 

9-?32 

9-?32# 

9-?32# 

9-?86 

9-?86 

9-?86# 

9-?86# 

9-811 

9-811 

9-811# 

9-811# 

9-876 

9-876 


9-876# 

9-876# 

9-A05 

9-A05 

9-A05# 

9-A05# 

9-A73 

9-A73 

9-A73# 

9-A73# 

9-A80# 



SOCNT 

16-1# 

16-1* 

16-1* 












SOMODE 

16-1 

16-1# 

16-1* 

16-1* 

16-1* 

16-1* 









SOVER 

12-1 

12-1 

12-1 

12-1# 











fPASS 

6-0# 

9-74* 

10-1 

10-1 

10-1 

10-1* 

10-1* 

12-1 

12-1 

12-1 





MUES 

6-0# 

13-1 

13-1 

15-1 

15-1 

18-1 

18-1 

18-1 

18-1 

19-1 

19-1 

19-1 



$R2A 

21-1 














SRDCHR 

18-1# 

21-1 

21-1 












SRDDEC 

21-1 














SRDLIN 

18-1# 

21-1 

21-1 












SRDOCT 

19-1# 

21-1 

21-1 












SRDSZ 

18-1 

18-1# 













SREGO 

6-0# 














SREGAD 

6-0# 














SRESRE 

20-1# 

21-1 




9-133 









SRHAOP 

7-0# 

9-68 

9-101 

9-108* 

9-111 

24-47 








SRNVEC 

7-0# 














SR T NAD 

10-1# 

21-1 













SSAVRE 

20-1# 

21-1 












SSCOPE 

9-23 

12-1# 













SSFTUP 

4-777 

4-777 

4-777 

4-777 

4-777 

4-777# 

4-777# 

4-777# 

4-777# 

4-777# 

4-777# 

9-23 

9-23 

9-23 

9-23 

9-23 

9-23 

9-23 

9-23 

9-23 

9-23 

9-23 

9-23 

9-28 

9-28 

9-28 

10-1 

10-1 


12-1 

13-1 

13-1 

13-1 

13-1 

18-1 

18-1 

18-1 

18-1 

18-1 





SSTUP 

i i 

5T* 

4-777 

4-777 

4-777 

4-777 

4-777# 

4-777# 

4-777# 

4-777# 

4-777# 

4-777# 

4-777# 

4-777# 

4-777# 

SSVLAD 

12-1 

12-1# 













SSVPC 

5-5 

5-5# 








4-593 




9-23 

SSWR 

4-588# 

4-592 

4-593 

4-593 

4-593 

4-593 

4-593 

4-593 

4-593 

6-0 

6-0 

6-0 

9-23 

9-23 

9-23 

9-23 

9-136 

9-198 

9-287 

9-305 

9-355 

9-372 

9-395 

9-418 

9-464 

9-488 


9-545 

9-568 

9-620 

9-636 

9-661 

9-681 

9-717 

9-736 

9-805 

9-842 

9-893 

9-919 

9-973 

9-996 


9-: 51 

9-: 69 

9-; 24 

9-; 84 

9-<34 

9-<55 

9-=03 

9-=57 

9 ->22 

9->44 

9-712 

12-1 

9-732 

9-786 

9-811 


9-876 

9-A05 

9-A73 

9-A80 

10-1 

10-1 

10-1 

10-1 

10-1 

11-53# 

12-1 

12-1 

12-1 


12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

12-1 

13-1 
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13-1 

13-1 

13-1 

13-1 

13-1 

13-1 

13-1 

SSURMK 

12-1 







STESTN 

STINES 

14-1 

6-0# 

9-23* 

9-136* 

9-198* 

9-287* 

9-305* 

9-355* 


9-620* 

9-636* 

9-661* 

9-681* 

9-717* 

9-736* 

9-805* 


9-; 24* 

9-; 84* 

9-<54* 

9-<55* 

9- =03* 

9-=57* 

9->22* 


9-A73* 

10-1* 

12-1 

12-1 

12-1 

12-1* 

12-1* 

STUB 

6-0# 

15-1 

15-1 

18-1 

18-1 

18-1 

18-1 

STKCNT 

18-1 

18-1 

18-1# 

18-1* 

18-1* 

18-1* 


STKINT 

9-29 

9-72 

18-1 

18-1 

18-1# 



STKQEN 

18-1 

18-1 

18-1# 





STKQIN 

18-1 

18-1 

18-1# 

18-1* 

18-1* 

18-1* 

18-1* 

STKQOU 

18-1 

18-1 

18-1# 

18-1* 

18-1* 

18-1* 


STKOSR 

18-1 

18-1 

18-1 

18-1# 




STKS 

6-0# 

15-1 

15-1 

18-1 

18-1 

18-1 

18-1 

STKSRV 

18-1 

18-1# 






STNPO 

6-0# 

9-149 

9-149 

9-149* 

9-149* 

9-149* 

9-149* 


9-164* 

9-164* 

9-164* 

9-164* 

9-164* 

9-267 

9-267 


9-289 

9-289 

9-289 

9-289* 

9-289* 

9-289* 

9-289* 


9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 


9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 


9-397 

9-397* 

9-397* 

9-443 

9-443 

9-443 

9-443 


9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466* 


9-523 

9-523* 

9-523* 

9-523* 

9-523* 

9-547 

9-547 


9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 


9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-622 

9-622 


9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 


9-647 

9-647* 

9-647* 

9-647* 

9-647* 

9-663 

9-663 


9-699 

9-699 

9-699 

9-699 

9-699* 

9-699* 

9-699* 


9-719 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 


9-791 

9-791 

9-791 

9-791 

9-791 

9-791* 

9-791* 


9-791* 

9-821 

9-821 

9-821 

9-821 

9-821* 

9-821* 


9-872 

9-872 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 


9-895 

9-895 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 


9-953 

9-953 

9-953 

9-953* 

9-953* 

9-953* 

9-953* 


9-953* 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 


9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 


9-: 30 

9-: 30* 

9-: 30* 

9-: 30* 

9-:30* 

9-:30* 

9-: 30* 


9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-:53 

9-:53 

9-: 53 


9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-:53* 

9-; 05 

9-; 05 


9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 


9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-<19 

9-<19 


9-<36 

9-<36 

9-<36 

9-<36* 

9-<36* 

9-<36* 

9-<36* 


9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-=05 

9-=05 

9-=05 


9-=05* 

9--99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 


9-=99* 

9-=99* 

9-=99* 

9- =99* 

9-=99* 

9-=99* 

9-=99* 


9-=99* 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 


9- >24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 


9->24* 

9->96 

9->96 

9->96 

9->96 

9->96 

9->96 


9->96* 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714 


9-714* 

9-768 

9-768 

9-768 

9-768* 

9-768* 

9-788 


9-856* 

9-856* 

9-878 

9-878 

9-878 

9-878* 

9-878* 


9-A45* 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75* 

S T MP1 

6-0# 

9-267 

9-267 

9-267 

9-267* 

9-267* 

9-267* 


9-289* 

9-339 

9-339 

9-339* 

9-339* 

9-357 

9-357 


9-397 

9-397* 

9-397* 

9-443 

9-443 

9-443 

9-443* 


SEO 02CM 


13-1 13-1 13-1 

9-372* 9-395* 9-418* 9-464* 9-488* 9-545* 9-568* 

9-842* 9-893* 9-919* 9-973* 9-996* 9-: 51* 9-: 69* 

9->44* 9-712* 9-732* 9-786* 9-911* 9-976* 9-A05* 

18-1 18-1 18-1 


18-1 

18-1* 

18-1* 

18-1* 

18-1* 

18-1* 

18-1* 

9-164 

9-164 

9-164 

9-164 

9-164* 

9-164* 

9-164* 

9-267 

9-267 

9-267* 

9-267* 

9-267* 

9-267* 

9-289 

9-339 

9-339 

9-339 

9-339 

9-339 

9-339 

9-339* 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357* 

9-384 

9-384 

9-384 

9-384* 

9-384* 

9-397 

9-397 

9-443 

9-443 

9-443* 

9-443* 

9-445* 

9-443* 

9-443* 

9-466* 

9-466* 

9-466* 

9-466* 

9-523 

9-523 

9-523 

9-547 

9-547 

9-547* 

9-547* 

9-547* 

9-547* 

9-599 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-647 

9-647 

9-647 

9-663 

9-663 

9-663* 

9-663* 

9-663* 

9-663* 

9-699 

9-699* 

9-699* 

9-699* 

9-719 

9-719 

9-719 

9-719 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-821* 

9-821* 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872* 

9-872* 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895* 

9-895* 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-975 

9-975 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-:30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-:30 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 53 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05* 

9-;05* 

9-; 05* 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-;69 

9-; 69* 

9— <1 9 

9— <1 9 

9— <1 9* 

9-<19* 

9-<19* 

9-<19* 

9-<36 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85* 

9-<85* 

9-=05 

9-=05 

9-=05* 

9-=05* 

9-=05* 

9-=05* 

9-=05* 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-§56 

9-788 

9-788 

9-788* 

9-788* 

9-956 

9-956 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45* 

9-A45* 

9-A75* 

9-267* 

9-A75* 

9-289 

24-48 

9-289 

9-289 

9-289* 

9-289* 

9-289* 

9-357* 

9-357* 

9-384 

9-384 

9-38' * 

9-384* 

9-397 

9-443* 

9-443* 

9-443* 

9-466 

9-466 

9-466 

9-466* 



0 


SEQ 0202 


9-547 

9-547 

9-547* 

9-547* 

9-599 

9-599 

9-599 

9-6 22* 

9-622* 

9-622* 

9-622* 

9-647 

9-647 

9-647 

9-663* 

9-663* 

9-663* 

9-663* 

9-699 

9-699 

9-699 

9-719* 

9-719* 

9-719* 

9-719* 

9-791 

9-791 

9-791 

9-821* 

9-821* 

9-872 

9-872 

9-872* 

9-872* 

9-895 

9-953* 

9-953* 

9-953* 

9-975 

9-975 

9-975 

9-975* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 53 

9-: 53 

9-: 53 

9-: 53* 

9-; 69 

9-; 69 

9-; 69* 

9-; 69* 

9— <1 9 

9-<19 

9-<19 

9-<36* 

9-<36* 

9-<36* 

9-<36* 

9-<85 

9-<85 

9-<85* 

9-=99 

9-=99 

9--99* 

9-=99* 

9-=99* 

9- =99* 

9->24 

9->96 

9->96 

9->96* 

9->96* 

9-714 

9-714 

9-714* 

9-?88* 

9-A75 

9-788* 

9-A75 

9-856 

9-A75* 

9-856 

9-A75* 

9-856* 

24-48 

9-856* 

9-878 

9-289 

9-289 

9-289* 

9-289* 

9-339 

9-339 

9-339 

9-384 

9-384 

9-384 

9-384* 

9-384* 

9-397 

9-397 

9-443* 

9-466 

9-466 

9-466 

9-466* 

9-466* 

9-523 

9-547* 

9-547* 

9-599 

9-599 

9-599 

9-599* 

9-599* 

9-647 

9-647* 

9-647* 

9-663 

9-663 

9-663 

9-663* 

9-719 

9-719 

9-719* 

9-719* 

9-791 

9-791 

9-791 

9-821 

9-821 

9-821 

9-821* 

9-821* 

9-872 

9-872 

9-895* 

9-953 

9-953 

9-953 

9-953* 

9-953* 

9-975 

9-: 30* 

9-: 30* 

9-: 53 

9-: 53 

9-: 53 

9-: 53* 

9-: 53* 

9-; 69 

9-; 69* 

9-; 69* 

9— <1 9 

9— <1 9 

9-<19 

9-<19* 

9-<85 

9-<85 

9-<85* 

9-<85* 

9-=05 

9-=05 

9-=05 

9-=99 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9->24 

9->24 

9->24* 

9->96 

9->96 

9->96 

9->96* 

9->96* 

9-714 

9-768* 

9-768* 

9-788 

9-788 

9-788 

9-788* 

9-788* 

9-878 

9-878* 

9-878* 

9-A45 

9-A45 

9-A45 

9-A45* 

24-48 

9-289 

9-289 

9-289* 

9-289* 

9-339 

9-339 

9-339 

9-384 

9-384 

9-384 

9-384* 

9-384* 

9-397 

9-397 

9-443* 

9-466 

9-466 

9-466 

9-466* 

9-466* 

9-523 

9-547* 

9-547* 

9-599 

9-599 

9-599 

9-599* 

9-599* 

9-647 

9-647* 

9-647* 

9-663 

9-663 

9-663 

9-663* 

9-719 

9-719 

9-719* 

9-719* 

9-791 

9-791 

9-791 

9-821 

9-821 

9-821 

9-821* 

9-821* 

9-872 

9-872 

9-895* 

9-953 

9-953 

9-953 

9-953* 

9-953* 

9-975 

9-: 30* 

9-: 30* 

9-: 53 

9-: 53 

9-: 53 

9-: 53* 

9-: 53* 

9-; 69 

9-; 69* 

9-; 69* 

9— <1 9 

9— <1 9 

9-<19 

9— <1 9* 

9-<85 

9-<85 

9-<85* 

9-<85* 

9-=05 

9- =05 

9-=05 

9-=99 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9->24 

9->24 

9->24* 

9->96 

9->96 

9->96 

9->96* 

9->96* 

9-714 

9-768* 

9-768* 

9-788 

9-788 

9-788 

9-788* 

9-788* 

9-878 

9-878* 

9-878* 

9-A45 

9-A45 

9-A45 

9-A45* 

24-48 

9-164 

9-164 

9-164 

9-164 

9-164* 

9-164* 

9-164* 

9-339 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-357* 

9-357* 

9-523 

9-523* 

9-523* 

9-547 

9-547* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-622 

9-622* 

9-622* 

9-622* 

9-622* 

9-699 

9-699* 

9-699* 

9-791* 

9-791* 

9-872 

9-872 

9-872* 

9-872* 

9-872* 

9-953 

9-953 

9-953 

9-953 

9-953* 

9-953* 

9-953* 

9-975 

9-975 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 53* 

?-:53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-; 05 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 69 

9-; 69 

9-; 69* 




SEQ 0203 


9-<85* 
9-=99* 
9 ->24 
9->24* 
9-714* 
9-198 
9-355# 
9-464 
9-568# 
9-681 
9-805# 
9-973 
9-: 69# 
9-<55 
9 -> 22 # 
9-?86 
9-A05# 
25-27 


9-<85* 

9-=99* 

9->24 

9- >24* 

9-714* 

9-198 

9-372 

9-464 

9-6?0 

9-681 

9-842 

9-973 

9-; 24 

9-<55 

9->44 

9-786 

9-A45 


9-=05 

9-=99* 

9->24 

9->96 

9-714* 

9-198# 

9-372 

9-464# 

9-620 

9-681# 

9-842 

9-973# 

9-; 24 

9-<55# 

9->44 

9-786# 

9-A46 


9-=05 

9-=99* 

9->24 

9->96 

9-714* 

9-287 

9-372 

9-488 

9-620 

9-717 

9-842 

9-996 

9-; 24 

9-=03 

9->44 

9-811 

9-A46 


9-=05* 

9-=99* 

9->24* 

9->96 

9-714* 

9-287 

9-372# 

9-488 

9-620# 

9-717 

9-842# 

9-996 

9-; 24# 

9- =03 

9->44# 

9-811 

9-A73 


9-=05* 

9- =99* 

9->24* 

9->96* 

9-714* 

9-287 

9-395 

9-488 

9-636 

9-717 

9-893 

9-996 

9-; 84 

9-=03 

9-712 

9-811 

9-A73 


9-=05* 

9-=99* 

9->24* 

9->96* 

9-287# 

9-395 

9-488# 

9-636 

9-717# 

9-893 

9-996# 

9-; 84 

9-=03# 

9-712 

9-811# 

9-A73 


21-1 

21-1 

21-1 

21 - 1 # 


21-1 

21-1 

21-1 

21 - 1 # 


21-1 

21-1 

21-1 

21 - 1 # 


21-1 

21-1 

21-1 

21 - 1 # 


21-1 

21-1 

21-1 

21 - 1 # 


21-1 

21-1 

21-1 

21 - 1 # 


21-1 

21-1 

21-1 

21 - 1 # 


9-395* 9-418* 9-464* 9-488* 
9-893* 9-919* 9-973* 9-996* 
9-712* 9-732* 9-786* 9-811* 
13-1 13-1 13-1 14-1 


9-545* 9-568* 9-620* 
9-: 51* 9-: 69* 9-; 24* 
9-876* 9-A05* 9-A73* 


9-<19 9-<19 9-<36 9-<36 9-A45 9-A75 
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AT5 

AT6 

AT7 

ATA 

(III 

g'O'O'O' 

(►'O'O'O 

o->ipn^ 

9-267 

9-267 

9-267 

9-267 

9-289 

9-289 

9-339 

9-339 

9-339 

9-357 

9-357 

9-357 

9-357 


9-384 

9-397 

9-397 

9-397 

9-397 

9-443 

9-443 


9-466 

9-523 

9-523 

9-523 

9-523 

9-547 

9-547 


9-622 

9-622 

9-622 

9-647 

9-647 

9-647 

9-647 


9-699 

9-719 

9-719 

9-719 

9-719 

9-791 

9-791 


9-791 

9-821 

9-821 

9-821 

9-821 

9-872 

9-872 


9-895 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895 


9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 


9-975 

9-975 

0-975 

9-975 

9-975 

9-975 

9-975 


9-: 30 

9-: 30 

V-:30 

9-: 30 

9-:30 

9-: 30 

9-: 30 


9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-:53 

9-: 53 


9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-;05 


9-; 69 

9-; 69 

9-; 69 

9-<19 

9-<19 

9-<19 

9-<19 


9-<85 

9-<85 

9-<85 

9-<85 

9-=05 

9-=05 

9-=05 


9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 


9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 


9->96 

9->96 

9->96 

9->96 

9->96 

9->96 

9-714 


9-714 

9-768 

9-768 

9-788 

9-788 

9-856 

9-856 


9-A45 

9-A45 

9-A75 

9-A75 

9-A75 



ATABIT 

9-53 

25-18# 






BADNO 

9-86 

22-9# 






BAD TWO 

9-3# 

9-25 






BAI 

4-615# 







BITO 

4-595# 




12-1 

13-1 

13-1 

BITOO 

4-595 

4-595# 

4-650 

12-1 

BIT01 

4-595 

4-595# 






BIT02 

4-595 

4-595# 






8IT03 

4-595 

4-595# 






8IT04 

4-595 

4-595# 






B1T05 

4-595 

4-595# 






B1T06 

4-595 

4-595# 



' 



8IT07 

4-595 

4-595# 






8IT08 

4-595 

4-595# 


12-1 

13-1 



BIT09 

4-595 

4-595# 

4-684 



BIT1 

4-595# 

13-1 






BIT10 

4-595# 






BIT11 

4-595# 

12-1 






BIT12 

4-595# 







BIT13 

4-595# 

13-1 

12-1 





aim 

4-595# 

4-685 





81 T 1 5 

4-595# 

4-686 






BIT2 

4-595# 







BIT3 

4-595# 







BIT4 

4-595# 







8I T 5 

4-595# 

4-646 






BJT6 

4-595# 







BIT7 

4-595# 







81 T8 

81 T9 

4-595# 

4-595# 







BPTVEC 

4-595# 

9-97# 






CHANGE 

9-30 

9-17* 

9-97 

9-99* 



CHGADR 

7-0# 

9-15* 




SEO 0204 
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CKCLK 

9-57 

9-70 

11-6# 

CKCLKl 

11-6 

11-15# 


CKCLK2 

11-16 

11-23# 

11-25# 

CKCLK3 

11-14 

11-22 

CKERR 

7-0# 

9-149 

9-149 

9-164* 

9-164* 

9-164* 


9-357* 

9-357* 

9-357* 


CASWR 

CLOCK 

CLR 

CPSAVE 

CR 

CRLF 

DCK 

DOISP 

OF 1 

OF 31 

OF 36 

DF42 

DF5 

OF 55 

OF 56 

OF 7 

0H1 

DHl 1 

0H13 

0H22 

OH23 

DH26 

DH3 

0H31 

0H36 

0H4 

0H42 

DH44 

DH46 

0H5 

0H55 

DH56 

0H57 

DH7 

OISPLA 

OISPRE 


9-523* 
9-599* 
9-719* 
9-953 
9-975* 
9-: 30* 
9-;05* 
9-<85* 
9-=99* 
9->24* 
9-714* 
9-A46* 
12-1 
11-10 
4-617# 
12-1 
4-595# 
4-595# 
22-11 


24-15# 

8-19 

8-175 

8-68 

8-26 

8-238 

8-252 

8-266 

8-33 

8-315 

8-322 

8-330 

8-47 

6 - 0 # 

5-1# 


9-523* 
9-599* 
9-791* 
9-953* 
9-975* 
9-: 53 
9-; 05* 
9-<85* 
9-=99* 
9->24* 
9-714* 
9-A76* 
13-1 

11- 19 
4-646# 

12 - 1 
15-1 

9-6 


4-679# 


4-595# 

6-0 

8-7 

8-14 

8-126 

8-156 

8-70 

8-112 

8-240 

8-247 

8-35 

8-42 

8-317 

24-56# 

8-324 

24-57# 

8-28 

8-49 

8-5 

8-12 

8-61 

24-8# 

8-40 

8-75 

8-124 

8-154 

8-131 

8-138 


24-2# 

24-17# 

8-110 

24-3# 

8-245 

24-21# 

24-23# 

8-54 

24-25# 

24-26# 

24-27# 

8- 89 

9- 23* 
9-23 


9-547 
9-599* 
9-791* 
9-953* 
9-975* 
9-: 53 
9-; 05* 
9-<85* 
9-=99* 
9->24* 
9-714* 
9-A76* 
13-1 
11-30# 


9-149* 
9-164* 
9-443 
9-547* 
9-622* 
9-791* 
9-953* 
9-975* 
9-: 53* 
9-; 05* 
9-=05* 
9-=99* 
9->96* 
9-714* 
9-A76* 
21 - 1 # 


9-149* 
9-164* 
9-443* 
9-547* 
9-622* 
9-791* 
9-953* 
9-975* 
9-: 53* 
9-; 05* 
9-=05* 
9-=99* 
9->96* 
9-714* 
9-A76* 


9-149* 

9-339* 

9-443* 

9-547* 

9-622* 

9-872* 

9-953* 

9-: 30 

9-: 53* 

9-; 05* 

9-=05* 

9->24* 

9->96* 

9-356 


9-149* 

9-339* 

9-466 

9-547* 

9-622* 

9-872* 

9-953* 

9-: 30 

9-: 53* 

9-; 05* 

9-=05* 

9->24* 

9->96* 

9-356* 


I 1 -JVR 

9-138 

12-1 

15-1 

9-28 

9-149 

12-1* 

24-3 

9-28 

o 

>*•* _ 
r-r-'Or- 
1 1 • 1 
or\j-r in 

O' 

till 

O'NWW'* 

9-357 

13-1 

24-11 

22-3 

9-23 

8-21 

8-177 

8-119 

24-55# 

8-56 

8-63 

8-254 

8-148 

8-77 

8-133 

8-268 

8-170 

8-84 

8-140 

8-310 

8-191 

8-184 

8-226 

24-53# 

8-198 

8-282 

8-91 

8-224 

8-98 

8-259 

8-105 

24-1# 

8-163 

8-367 

8-82 

8-308 

8-231 

8-280 

24-11# 

8-273 

8-294 

8-301 

8-351 

8-344 

24-9# 

24-13# 

8-117 

8-146 

8-168 

8-189 

8-196 

24-20# 





8-182 

8-287 

8-337 

8-372 

24-5# 

8- 96 

9- 23* 

8-103 

12-1* 

8-161 

13-1* 

8-365 

24-6# 


SEQ 0205 


9-156* 

9-156* 

9-156* 

9-156* 

9-164* 

9-164* 

9-164* 

9-339* 

9-339* 

9-339* 

9-339* 

9-357* 

9-357* 

9-357* 

9-466* 

9-466* 

9-523 

9-523* 

9-523* 

9-523* 

9-523* 

9-547* 

9-547* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-622* 

9-622* 

9-622* 

9-622* 

9-699* 

9-699* 

9-719* 

9-872* 

9-872* 

9-895* 

9-895* 

3-895* 

9-895* 

9-953 

9-953* 

9-953* 

9-975 

9-975 

9-975* 

9-975* 

9-975* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-; 05 

9-; 05 

9-; 05* 

9-; 69 

9-; 69 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-<85* 

q-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=Q9* 

9-=99* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9- >24* 

9->24* 

9->96* 

9->96* 

9->96* 

9->96* 

9-714* 

9-714* 

9-714* 

9-356* 

9-378 

9-378* 

9-378* 

9-A46* 

9-A46* 

9-A46* 


9-523 

13-1 

24-13 

22-4 

9-547 

13-1 

24-15 

22-5 

9-599 

13-1 

24-17 

22-6 

9-622 

13-1# 

24-21 

22-7 

9-; 05 
13-1* 
24-23 
22-7 

13-1* 

22-9 

14-1 

22-10 

8-233 

8-261 

8-275 

8-303 

8-346 

24-50# 


8-205 

8-212 

8-219 

8-360 

24-54# 



8-289 

8-296 

8-332 

8-339 

8-353 

8-374 

24-51# 


24-52# 


8-203 8-210 8-217 8-358 24-19# 


i 


seo 020t 
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CROSS 

REFERENCE 

TABLE (CREF 904.00 

) 




DLT 

4-627# 




9->24 



DMD 

4-683# 

9-=99 

9-=99 

9->24 



OPE 

DPR 

4-728# 

4-653# 

9-164 

9-164 

9-267 

9-267 

9-289 

9-289 

9-466 

9-466 

9-466 

9-523 

9-547 

9-599 

9-599 


9-647 

9-663 

9-663 

9-699 

9-699 

9-719 

9-719 


9-872 

9-872 

9-895 

9-895 

9-953 

9-953 

9-975 


9-<85 

9-=05 

9-=99 

9-=99 

9-=99 

9->24 

9->24 


9-A75 

9-A75 






ORQ 

DRY 

4-713# 

4-652# 

9-164 

9-164 

9-267 

9-267 

9-289 

9-289 

9-466 

9-466 

9-466 

9-523 

9-547 

9-599 

9-599 


9-647 

9-663 

9-663 

9-699 

9-699 

9-719 

9-719 


9-872 

9-872 

9-895 

9-895 

9-953 

9-953 

9-975 


9-<85 

9-<85 

9-=05 

9-=05 

9-=99 

9-=99 

9-=99 


9-A45 

9-A45 

9-A75 

9-A75 




DSWR 

4-595# 

6-0 

9-23 





DTOO 

4-704# 







DT01 

4-705# 







DT02 

4-706# 







DT03 

4-707# 







DT04 

4-708# 







DT05 

4-709# 







DT06 

4-710# 







DT07 

4-711# 







DT08 

4-712# 




8-302 

24-32# 


DTI 

8-6 

8-13 

8-62 

8-260 

24-37# 

DT13 

8-41 

8-76 

8-83 

8-281 

8-295 

8-352 

DT22 

8-125 

8-155 

24-38# 


8-274 

8-345 

24-39# 

DT23 

8-132 

3-139 

8-225 

8-232 

DT3 

8-20 

24-33# 






DT31 

8-176 

8-253 

24-40# 



8-359 

24-41# 

DT36 

8-147 

8-169 

8-190 

8-197 

8-211 

DT3 7 

8-69 

8-111 

8-118 

8-204 

8-218 

24-42# 


DT42 

8-239 

8-246 

24-43# 





DT46 

8-267 

24-44# 



8-338 

8-373 

24-34# 

DT5 

8-34 

8-55 

8-183 

8-288 

DT54 

8-309 

24-45# 






DT55 

8-316 

24-46# 






DT56 

DT57 

8-323 

8-331 

24-47# 

24-48# 






gtf 

24-35# 

8-27 

8-48 

8-90 

8-97 

8-104 

8-162 

8-366 

DTE 

4-676# 







DVA 

4-642# 







DVC 

4-729# 







ECH 

4-670# 







ECI 

4-740# 







EMI 

8-4 

23-3# 






EM10 

8-53 

23-10# 






EMIT 

8-60 

23-11# 






EMI 2 

8-67 

23-12# 






EMI 3 

8-74 

23-13# 






EMU 

8-81 

23-14# 






EM7S 

8-88 

23-15# 






EM 16 

8-95 

23-16# 







9-339 

9-357 

9-384 

9-397 

9-443 

9-443 

9-443 

9-599 

9-599 

9-622 

9-6 22 

9-622 

9-622 

9-647 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-821 

9-975 

9-:30 

9-: 30 

9-: 53 

9-: 53 

9-<l9 

9-<36 

9->24 

9-?68 

9-?88 

9-556 

9-578 

9-A45 

9-A45 

9-339 

9-357 

9-384 

9-397 

9-443 

9-443 

9-443 

9-599 

9-599 

9-622 

9-622 

9-622 

9-622 

9-647 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-821 

9-975 

9-: 30 

9-: 30 

9-: 53 

9-: 53 

9-<19 

9-<36 

9->24 

9->24 

9->24 

9-?68 

9-?88 

9-556 

9-578 


24- 36# 


i 


B 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


EM17 

8-102 

23-17# 




EM2 

8-11 

23-4# 




EM20 

8-109 

23-18# 




EM21 

8-116 

23-19# 




EM22 

8-123 

23-20# 




EM23 

8-130 

23-21# 




EN24 

8-137 

23-22# 




EH25 

8-145 

23-23# 




EM26 

8-153 

23-24# 




EM27 

8-160 

? T -25# 




EH3 

8-18 

<:3-5# 




EM30 

8-167 

23-26# 




EM31 

8-174 

23-27# 




EM32 

8-181 

23-28# 




EM33 

8-188 

23-29# 




EH34 

8-195 

23-30# 




EM35 

8-202 

23-31# 




EM36 

8-209 

23-32# 




EM37 

8-216 

23-33# 




EM4 

8-25 

23-6# 




EM40 

8-223 

23-34# 




EM41 

8-230 

23-35# 




EM42 

8-237 

23-36# 




EM43 

8-244 

23-37# 




EH44 

8-251 

23-38# 




EM45 

8-258 

23-39# 




EM46 

8-265 

23-40# 




EM47 

8-272 

23-41# 




EM5 

8-32 

23-7# 




EM50 

8-279 

23-42# 




EM51 

8-286 

23-43# 




EM52 

8-293 

23-44# 




EM53 

8-300 

23-45# 




EM54 

8-307 

23-46# 




EM55 

8-314 

23-47# 




EM56 

8-321 

23-48# 




EM57 

8-329 

23-49# 




EM6 

8-39 

23-8* 




EM60 

8-336 

23-50# 




EH61 

8-343 

23-51# 




EM62 

8-350 

23-52# 




EH63 

8-357 

23-53# 




EH64 

8-364 

23-54# 




EH65 

8-371 

25-55# 




EM7 

8-46 

23-9# 




EMTVEC 

4-595# 

9-23* 

9-23* 



ENTERA 

9-31 

22-3# 




ERR 

4-659# 

9->96 

9->96 

9->96 

9-714 

ERROR 

4-595# 





ERRVEC 

4-595# 

9-23 

9-23* 

9-23* 

9-25* 


12-1* 

12-1* 

12-1* 

13-1 

13-1* 

EXEC 

9-58 

9-65# 

9-136 

9-198 

9-287 


9-620 

9-636 

9-661 

9-681 

9-717 


9-; 24 

9-; 84 

9-<34 

9-<55 

9-=03 


9-A73 

10-1 




FO 

4-637# 






9-714 


9-26* 

13-1* 


9-305 

9-736 


9-=57 


9-714 

11 - 6 * 


9-355 


9-805 


9->22 


1 


SEQ 0207 


\ 


11-7* 

11-16* 

11-25* 

12-1 

12-1 

12-1* 

12-1* 

9-372 

9-395 

9-418 

9-464 

9-488 

V-545 

9-568 

9-842 

9-893 

9-919 

9-973 

9-m 

9-: 51 

9-:69 

9->44 

9-712 

9-732 

9-786 

9-aii 

9-876 

9-A05 


c 
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CROSS REFERENCE TABLE (CREF V04.00 ) 


FI 

4-638# 







F2 

4-639# 







F3 

4-640# 







F4 

4-641# 







FER 

4-668# 







FMT16 

4-741# 







GNS 

5-1 

5-1 

9-6 

9-28 

10-1 

10-1 

21-1 


21-1 

21-1 

21-1 

21-1 

21-1 

21-1 

21-1 


21-1 

21-1 






GO 

4-636# 







GTSWR 

9-28 

21-1# 






HCE 

4-671# 







HCI 

4-739# 







HCRC 

4-672# 







HT 

4-595# 

15-1 

15-1 





IAE 

4-674# 







1BSAVE 

13-1 

13-1 

13-1 

13-1 

13-1 

13-1# 

13-U 

IE 

4-601# 







ILF 

4-664# 







ILR 

4-665# 







IOTVEC 

4-595# 

9-23* 

9-23* 





IR 

4-618# 







IVC 

4-732# 







KYBCTL 

7-0# 

9-73* 

9-90* 

9-136 

9-136* 

9-198 

9-198* 


9-372* 

9-395 

9-3^5* 

9-418 

9-418* 

9-464 

9-464* 


9-620* 

9-636 

9-636* 

9-661 

9-661* 

9-681 

9-681* 


9-842* 

9-893 

9-893* 

9-919 

9-919* 

9-973 

9-973* 


9-; 24* 

9-;84 

9-;8‘ * 

9-<34 

9-<34* 

9-<55 

9-<55* 


9->44* 

9— ?12 

9-?U* 

9-?32 

9 -?32* 

9-?86 

9-?86* 


LBC 4-730# 

LBT 4-655# 

LF 4-595# 15-1 15-1 22-7 22-8 22-11 22-12 

24-21 24-23 



24-21 

24-23 






LSC 

4-731# 







MAX TN 

9-84 

25-29# 






HCPE 

4-606# 

9-443 

9-466 

9-A46 

9-A46 

9-A76 

9-A76 

MOPE 

4-620# 







MOH 

4-714# 







MOL 

4-657# 

9-164 

9-164 

9-267 

9-267 

9-289 

9-289 


9-466 

9-466 

9-466 

9-523 

9-547 

9-599 

9-599 


9-647 

9-663 

9-663 

9-699 

9-699 

9-719 

f-719 


9-872 

9-8 72 

9-895 

9-895 

9-953 

9-953 

9-975 


9-<85 

9-=05 

9-=99 

9-=99 

9-=99 

9->24 

9->24 


9-A75 

9-A75 






MUR 

4-684# 

9-=99 

9->24 





HXF 

4-621# 







NBA 

4-716# 







NED 

4-624# 

9-149 

9-149 

9-149 

9-149 



NEM 

4-623# 







NOATA 

8-379# 

9-267 

9-267 

9-289 

9-289 

9-339 

9-339 


9-397 

9-397 

9-397 

9-443 

9-443 

9-443 

9-443 


9-523 

9-547 

9-547 

9-547 

9-547 

9-599 

9-599 


9-647 

9-647 

9-647 

9-663 

9-663 

9-663 

9-663 


9-719 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 


9-872 

9-872 

9-872 

9-872# 

9-872# 

9-895 

9-895 


1 


S5Q 0208 



13-1* 13-1* 


9-287 

9-287* 

9-305 

9-305* 

9-355 

9-355* 

9-372 

9-488 

9-488* 

9-545 

9-545* 

9-568 

9-568* 

9-620 

9-717 

9-717* 

9-736 

9-736* 

9-805 

9-805* 

9-842 

9-996 

9-996* 

9—: 51 

9-:51* 

9-: 69 

9-:69* 

9-; 24 

9-=03 

9-=03* 

9-=57 

9-=57* 

9->22 

9->22* 

9->44 

9-911 

9-911* 

9-976 

9-976* 

9-A05 

9-A05* 

9-A73 

24-3 

24-6 

24-9 

24-11 

24-13 

24-15 

24-17 


9-339 

9-357 

9-384 

9-397 

9-443 

9-443 

9-443 

9-599 

9-599 

9-622 

9-622 

9-622 

9-622 

9-647 

9-791 

9-791 

9-791 

9-791 

5-791 

9-791 

9-821 

f-975 

9-:30 

9-:30 

9-:53 

9-: 53 

9-<19 

9-<26 

9->24 

9-?68 

9-?88 

9-856 

9-878 

9-A45 

9-A45 


9-357 

9-357 

9-384 

9-384 

9-384 

9-384 

9-397 

9-466 

9-466 

9-466 

9-466 

9-523 

9-523 

9-523 

9-599 

9-599 

9-622 

9 -622 

9-622 

9-622 

9-647 

9-699 

9-699 

9-699 

9-699 

9-719 

9-719 

9-719 

9-791 

9-791 

9-821 

9-821 

9-821 

9-821 

9-872 

9-895 

9-895 

9-895# 

9-895# 

9-897# 

9-953 

9-953 
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SEQ 0209 

CROSS 

REFERENCE 

TABLE (CnEF V04.00 

) 












9-953 

9-953 

9-975 

9-975 

9-975 

9-975 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 53 

9-: 53 

9-: 53 

9-: 53 


9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05# 

9-; 07# 

9-;69 

9-; 69 

9-; 69 

9-; 69 

9— <1 9 

9-<19 

9-<19 

9-<1 c 


9-<19# 

9-<19# 

9-<36 

9-<36 

9-<36 

9-<36 

9-<36# 

9-<36# 

9-<85 

9-<85 

9-<85 

9-<85 

9-=05 

9-=C5 


9-=05 

9-=05 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99# 

9->24 

9->24 

9->24 

9->24 

9->24# 

9->26# 

9->96 


9->96 

9->96 

9->96 

9->96# 

9->96# 

9-714 

9-714 

9-714 

9-714 

9-714# 

9*714# 

9-768 

9-768 

9-768 


9-?68 

9-?88 

9-?88 

9-?88 

9-788 

9-856 

9-856 

9-856 

9-856 

9-856# 

9-856# 

9-878 

9-878 

9-878 


9-878 

9-878# 

9-878# 

9-A45 

9-A45 

9-A45 

9-A45 

9-A75 

9-A75 

9-A75 

9-A75 




NOCLOC 

9-59 

22-7# 













NOSE I Z 

7-0# 














NTRH 

9-104 

22-12# 













OFD 

4-738# 














on 

4-650# 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 

9-339 

9-339 

9-357 

9-357 

9-384 

9-384 

9-397 


9-397 

9-443 

9-443 

9-443 

9-466 

9-466 

9-466 

9-523 

9-523 

9-547 

9-547 

9-599 

9-599 

9-599 


9-622 

9-622 

9-622 

9-647 

9-647 

9-647 

9-663 

9-663 

9-663 

9-699 

9-699 

9-699 

9-719 

9-719 


9-719 

9-791 

9-791 

9-791 

9-791 

9-821 

9-821 

9-872 

9-872 

9-895 

9-895 

9-953 

9-953 

9-953 


9-975 

9-975 

9-975 

9-: 30 

9-:30 

9-: 30 

9-: 53 

9-: 53 

9-: 53 

9-; 05 

9-; 05 

9-;69 

9-;69 

9-<19 


9-<19 

9-<36 

9-<36 

9-<85 

9-<85 

9-=05 

9-=05 

9-=99 

9-=99 

9-=99 

9-=99 

9->24 

9->24 

9->24 


9->24 

9->96 

9->96 

9-714 

9-714 

9-768 

9-768 

9-788 

9-788 

9-856 

9-856 

9-878 

9-878 

9-A45 


9-A45 

9-A75 

9-A75 












OPE 

4-733# 














OP I 

4-677# 














OPPRT 

7-0# 

9-267* 

9-289* 

9-339* 

9-357* 

9-443* 

9-466* 

9-523* 

9-547* 

9-599* 

9-622* 

9-647* 

9-663* 

9-699* 


9-719* 

9-791* 

9-791* 

9-872* 

9-895* 

9-953* 

9-975* 

9-: 30* 

9-: 53* 

9-=99* 

9->24* 

9->96* 

9-714* 

9-768* 


9-?88* 

9-856* 

9-878* 

9-A45* 

9-A75* 

24-35 

24-40 

24-4 ; 







OR 

4-619# 














PAR 

4-667# 














PAT 

4-616# 














PFECH 

14-1 

14-1# 













PFECH1 

14-1 

14-1# 













PFECH2 

14-1 

14-1# 













FrECH3 

14-1 

14-1# 













PFECH4 

14-1 

14-1# 













PFTSTN 

14-1 

14-1# 

14-1* 












PGE 

4-622# 














PGM 

4-654# 

9-164 

9-164 

9-164 

9-164 

9-164 

9-164 

9-267 

9-267 

9-289 

9-289 

9-339 

9-357 

9-384 


9-397 

9-443 

9-443 

9-443 

9-466 

9-466 

9-466 

9-523 

9-547 

9-599 

9-599 

9-599 

9-599 

9-622 


9-622 

9-622 

9-622 

9-647 

9-647 

9-663 

9-663 

9-699 

9-699 

9-719 

9-719 

9-791 

9-791 

9-791 


9-791 

9-791 

9-791 

9-821 

9-872 

9-872 

9-895 

9-895 

9-953 

9-953 

9-975 

9-975 

9-:30 

9-:30 


9-: 53 

9-: 53 

9-<19 

9- <36 

9-<85 

9-=05 

9-=99 

9-s99 

9-=99 

9->24 

9->24 

9->24 

9-768 

9-788 


9-856 

9-878 

9-A45 

9-A45 

9-A75 

9-A75 









PIP 

4-658# 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 

9-339 

9-339 

9-357 

9-357 

9-384 

9-384 

9-397 


9-397 

9-443 

9-443 

9-443 

9-466 

9-466 

9-466 

9-523 

9-523 

9-547 

9-547 

9-599 

9-599 

9-599 


9-622 

9-622 

9-622 

9-647 

9-647 

9-647 

9-663 

9-663 

9-663 

9-699 

9-699 

9-699 

9-719 

9-719 


9-719 

9-791 

9-791 

9-791 

9-791 

9-821 

9-821 

9-872 

9-872 

9-895 

9-895 

9-953 

9-953 

9-953 


9-975 

9-975 

9-975 

9-:30 

9-:30 

9-:30 

9-:53 

9-: 53 

9-:53 

9-; 05 

9-; 05 

9-; 69 

9-; 69 

9-<19 


9-<19 

9-<36 

9- <36 

9-<85 

9-<85 

9-=05 

9-s05 

9-=99 

9-=99 

9-=99 

9-=99 

9->24 

9->24 

9->24 


9->24 

9->96 

9->96 

9-714 

9-714 

9-768 

9-768 

9-788 

9-788 

9-856 

9-856 

9-878 

9-878 

9-A45 


9-A45 

9-A75 

9-A75 












PIRQ 

4-595# 














PIRQVE 

4-595# 














PORTA 

7-0# 

9-33* 

9-34 

9-38 

9-41 

9-45 

9-49 

9-52 

9-149 

9-149 

9-156 

9-156 

9-164 

9-164 


9-168 

9-267 

9-267 

9-267 

9-267 

9-267 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 

9-289 

9-289 


9-289 

9-289 

9-289 

9-289 

9-289 

9-339 

9-339 

9-339 

9-339 

9-339 

9-339 

9-339 

9-339 

9-339 


9-339 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9 384 

9-384 

9-384 

9-384 


9-384 

9-384 

9-384 

9-397 

9-397 

9-397 

9-397 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 


9-443 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 
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9-523 

9-523 

9-523 

9-523 

9-523 

9-523 

9-523 

9-547 

9-547 

9-547 

9-547 

9-547 

9-547 

9-547 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-622 

9-622 

9-622 

9-622 

9-647 

9-647 

9-647 

9-647 

9-663 

9-663 

9-663 

9-6o3 

9-663 

9-663 

9-699 

9-699 

9-699 

9-699 

9-699 

9-719 

9-719 

9-719 

9-719 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-821 

9-821 

9-821 

9-821 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872 

9-895 

9-895 

9-895 

9-895 

9-395 

9-895 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-: 30 

9-: 30 

9-:30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-<36 

9-<36 

9-<36 

9-<36 

9-<36 

9-<36 

9-<36 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->96 

9->96 

9->96 

9 ->96 

9->96 

9->96 

9->96 

9-714 

9-714 

9-714 

9-768 

9-768 

9-768 

9-768 

9-788 

9-788 

9-788 

9-788 

9-856 

9-856 

9-856 

9-978 

9-878 

9-878 

9-878 

9-878 

9-878 

9-878 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-149 

9-156 

9-156 

9-164 

9-164 

9-170 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 

9-289 

9-289 

9-339 

9-339 

9-339 

9-339 

9-339 

9-357 

9-357 

9-357 

9-384 

9-384 

9-384 

9-384 

9-397 

9-397 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-523 

9-523 

9-523 

9-523 

9-523 

9-523 

9-547 

9-547 

9-547 

9-547 

9-547 

9-547 

9-599 

9-599 

9-599 

9-599 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-647 

9-647 

9-647 

9-647 

9-647 

9-663 

9-663 

9-663 

9-663 

9-663 

9-663 

9-663 

9-699 

9-699 

9-699 

9-699 

9-719 

9-719 

9-719 

9-79* 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9” 791 

9-791 

9-791 

9-791 

9-791 

9-821 

9-872 

’>872 

9-872 

9-872 

9-872 

9-872 

f-895 

9-895 

f-895 

9-895 

9-895 

9-895 

9-895 

9-895 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-:30 

9-:30 

9-:30 

9-:30 

9-:30 

9-:30 

9-:30 

9-:53 

9-:53 

9-:53 

9-: 53 

9-:53 

9-:53 

9-:53 

f-;05 

9-; 05 

9-; 05 

9-; 05 

9-; 69 

9-; 69 

9-; 69 

9-<19 

9— <19 

9-<19 

9— <19 

9-<19 

9-<19 

9-<19 

9-<36 

9-<36 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85 

9-=05 

9-=05 

9-=05 

9-=05 

9-=05 

9-=99 

9- =9? 

9-=99 

9=99 

9-=99 

9-=99 

9->24 

9->24 

9->24 

9->24 

9->24 

9->96 

9->96 

9->96 

9 ->96 

9->96 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714 

9-768 

9-768 

9-788 

9-788 

9-788 

9-788 

9-788 
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9-788 

9-?88 

9-856 

9-856 

9-856 

9-856 

9-856 

9-856 

9-856 

9-856 

9-856 

9-878 

9-878 

9-878 


9-878 

9-878 

9-878 

9-878 

9-878 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 


9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 


9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 








PORTBI 

9-46 

22-6# 













PORTC 

7-0# 

9-49* 

9-50* 

9-51* 

9-791 

9-82 . 









PRO 

4-595# 














PR1 

4-595# 














PR2 

4-595# 














PR 3 

4-595# 

12-5 













PR4 

4-595# 














PR 5 

4-595# 

9-92 

9-134 

12-9 











PR6 

4-595# 

9-26 













PR7 

4-595# 














PS 

4-595 

4-595# 

9-66* 

9-267* 

9-267* 

9-267* 

9-289* 

9-289* 

9-289* 






PSEL 

4-605# 














PSW 

PTNBR 

4-595# 

7-0# 

9-149* 

9-149* 

9-156* 

9-156* 

9-164* 

9-164* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 


9-267* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-289* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 


9-339* 

9-339* 

9-339* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-384* 

9-384* 

9-384* 


9-384* 

9-384* 

9-397* 

9-397* 

9-397* 

9-397* 

9-397* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 


9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 


9-466* 

9-466* 

9-466* 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-547* 

9-547* 

9-547* 


9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 


9-599* 

9-599* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-647* 


9-647* 

9-647* 

9-647* 

9-647* 

9-647* 

9-647* 

9-663* 

9-663* 

9-663* 

9-663* 

9-663* 


9-663* 

9-699* 


9-69<>* 

9-699* 

9-699* 

9-699* 

9-699* 

9-699* 

9-699* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 


9-719* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 


9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-821* 

9-821* 

9-821* 

9-821* 

9-872* 


9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-895* 

9-895* 

9-895* 


9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

f-895* 

9-895* 

9-895* 

9-895* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 


9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 


9-975* 

9-:30* 

9-.-30* 

9-:30* 

9-:30* 

9-.-30* 

9-: 30* 

9-:30* 

9-: 30* 

9-:30* 

9-:30* 

9-:53* 

9-:53* 

9-:53* 


9-: 53* 

9-: 53* 

9-:53* 

9-:53* 

9-:53* 

9-:53* 

9-:53* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-;05* 

9-; 05* 

9-;05* 


9-; 05* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-;69* 

9-; 69* 

9-; 69* 

9-<19* 

9-<19* 

9-<19* 

9-<19* 

9-<19* 


9-<19* 

9-<36* 

9-<36* 

9-<36* 

9-<36* 

f-<36* 

9-<36* 

9-<85* 

9-<85* 

9-<85* 

9-<8S* 

9-<85* 

9-<85* 

9-<85* 


9-=05* 

9- =05* 

9-=05* 

9-=05* 

9- =05* 

-=05* 

9-=05* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 


9-=99* 

9-=99* 

9-=99* 

9-=99* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 


9->24* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9-?14* 

9-714* 

9-?14* 

9-714* 

9-714* 

9-714* 


9-714* 

9-?68* 

9-?68* 

9-?68* 

9-?68* 

9-?68* 

9-?sa* 

9-?88* 

9-?88* 

9-?88* 

9-?88* 

9-856* 

9-856* 

9-856* 


9-856* 

9-856* 

9-856* 

9-878* 

9-878* 

9-878* 

9-878* 

9-87i>* 

9-878* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 


9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 


9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

24-32 

24-34 

24-36 

24-37 

24-38 

24-42 


PWRVEC 

4-595# 














R6 

4-595# 

9-23 

9-23* 

9-23* 











R7 

4-595# 














RDCHR 

18-1 

21-1# 













RDL IN 

19-1 

21-1# 













RDOCT 

9-32 

9-79 

9-105 

21-1# 











RDY 

RELERR 

4-602# 

7-0# 

9-267* 

9-267* 

9-289* 

9-289* 

9-339 

9-339* 

9-339* 

9-357 

9-357* 

9-357* 

9-384* 

9-384* 

9-397* 


9-397* 

9-443* 

9-443* 

9-443* 

9-466* 

9-466* 

9-466* 

9-523* 

9-523* 

9-547* 

9-547* 

9-599* 

9-599* 

9-622* 


9-622* 

9-647* 

9-647* 

9-663* 

9-663* 

9-699* 

9-699* 

9-719* 

9-719* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 


9-791* 

9-821* 

9-321* 

9-872* 

9-872* 

9-872* 

9-895* 

9-895* 

9-895* 

9-953* 

9-953* 

9-975* 

9-975* 

9-: 30* 


9-: 30* 

9-: 53* 

9-: 53* 

9-; 05 

9-; 05* 

9-; 05* 

9-; 69 

9-; 69* 

9-; 69* 

9-<19* 

9— <19* 

9-<36* 

9-<36* 

9-<85* 


9-<85* 

9-=05* 

9- =05* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9->24* 

9->24* 

9->24* 

9->24* 

9->96* 

9->96* 

9-714* 
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9— ? 1 4 * 

9-768* 

9-768* 

9-788* 

9-788* 

9-856* 

9-856* 

9-878* 

9-878* 

9-A45* 

9-A45* 

9-A45* 

9-A75* 

9-A75* 

RELOK 

V-AO* 

8-3 78# 

9-267 

9-289 

9-339 

9-357 

9-360# 

9-384 

9-397 

9-443 

9-466 

9-523 

9-547 

9-599 

9-622 


9-647 

9-663 

9-699 

9-719 

9-791 

9-791 

9-821 

9-872 

9-895 

9-953 

9-975 

9-: 30 

9-: 53 

9-; 05 


9-; 69 

9-<19 

9-<36 

9-<85 

9-=05 

9-=99 

9-=99 

9->24 

9->24 

9->96 

9-714 

9-768 

9-788 

9-856 


9-878 

9-A45 

9-A75 












RESREG 

21-1# 














RESVEC 

4-595# 














RHAS 

4-764# 

9-791* 

9-821* 

9-; 69 

9-; 69 

9-; 69* 

9-<19 

9-<19 

9-<36 

9-<36 

9-A45* 

9-A75* 



RMBA 

4-759# 














RMCS1 

4-757# 

9-339* 

9-339* 

9-357* 

9-357* 

9-384* 

9-384* 

9-384* 

9-397* 

9-397* 

9-397* 

9-443 

9-443 

9-443* 


9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-466 

9-466 

9-466* 

9-466* 

9-466* 


9-466* 

9-466* 

9-466* 

’-466* 

9-466* 

9-466* 

9-466* 

9-523 

9-523 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 


9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-547 

9-547 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 


9-547* 

9-547* 

9-547* 

9-599* 

9-599* 

9-599* 

9-599* 

9-622* 

9-622* 

9-622* 

9-622* 

9-647 

9-647* 

9-647* 


9-647* 

9-647* 

9-647* 

9-647* 

9-647* 

9-663 

9-663* 

* 663* 

9-663* 

9-663* 

9-663* 

9-663* 

9-6o3* 

9-699 


9-699 

9-699 

9-699* 

9-699* 

9-699* 

9-699* 

9-699* 

9-6f9* 

9-699* 

9-719 

9-719 

9-719 

9-719* 

9-719* 


9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-791* 

9-791* 

9-791* 

9-791 * 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 


9-791* 

9-791* 

9-791* 

9-821* 

9-821* 

9-821* 

9-821* 

9-821* 

f-821 * 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 


9-872* 

9-872* 

9-872* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-953* 

9-953* 

9-953* 


9-953* 

9-975* 

9-975* 

9-975* 

9-975* 

9-: 30* 

9-:30* 

9-:30* 

9-:30* 

9-: 53* 

9-: 53* 

9-:53* 

9-:53* 

9-; 05* 


9-; 05* 

9-; 69* 

9-; 69* 

9-<19* 

9-<19* 

9-<19* 

9-<19* 

9-<19* 

9-<19* 

9-<19* 

9-<36* 

9-<36* 

9-<36* 

9-<36* 


9-<36* 

9-<36* 

9-<36* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-=05* 

9- =05* 

9-=05* 


9-=05* 

9- =05* 

9-=05* 

9-=05* 

9-=05* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9->24* 

9->24* 

9->24* 


9->24* 

9->24* 

9->24* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9-714* 

9-714* 

9-714* 


9-714* 

9-714* 

9-714* 

9-714* 

9-714* 

9-768* 

9-768* 

9-768* 

9-768* 

9-768* 

9-768* 

9-788* 

9-788* 

9-788* 


9-788* 

9-788* 

9-788* 

9-856* 

9-856* 

9-856* 

9-856* 

9-356* 

9-356* 

9-856* 

9-378* 

9-378* 

9-378* 

9-878* 


9-i78* 

9-378* 

9-a78* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A46 

9-A46 

9-A46 


9-A46 

9-A46* 

9-A46* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A76 

9-A76 

9-A76 


9-A76 

9-A76* 

9-A76* 












RMCS2 

4-761# 

9-138* 

9-149 

9-149 

9-149 

9-149 

9-149* 

9-149* 

9-149* 

9-149* 

9-156* 

9-156* 

9-164* 

9-164* 


9-168* 

9-170* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-267* 

9-289* 

9-289* 

9-289* 

9-289* 


9-289* 

9-289* 

9-289* 

9-289* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 

9-339* 


9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-357* 

9-384* 

9-384* 

9-384* 

9-384* 


9-384* 

9-397* 

9-397* 

9-397* 

9-397* 

9-397* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 


9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-443* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 


9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-466* 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 

9-523* 


9-523* 

9-523* 

9-523* 

9-523* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 

9-547* 


9-547* 

9-547* 

9-599* 

9-599* 

f-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 

9-599* 


9-599* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 

9 -622* 

9-622* 

9-622* 

9-622* 

9-622* 

9-622* 


9-647* 

9-647* 

f-647* 

9-647* 

9-647* 

9-647* 

9-647* 

f-647* 

9-647* 

f-647* 

9-663* 

9-663* 

9-663* 

f-663* 


9-663* 

9-663* 

9-663* 

9-663* 

9-663* 

9-663* 

9-699* 

9-699* 

9-699* 

9-699* 

9-699* 

9-699* 

9-699* 

9-699* 


9-699* 

9-699* 

-699* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 

9-719* 


9-791* 

9-791 * 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791 * 

9-791* 

9-791* 

9-?f 1 * 

9-791* 

9-791* 


9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-791* 

9-821* 

f-821* 

9-821* 

9-821 * 

9-821* 


9-821* 

9-821* 

9-872* 

9»872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 

9-872* 


9-8 72* 

9-872* 

9-895* 

9»395* 

9 895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 

9-895* 


9-895* 

9-895* 

9-953* 

9-953* 

9-953* 

9-953* 

9-953* 

9 953* 

9-953* 

f-953* 

9-953* 

9-953* 

5-953* 

9-953* 


9-953* 

9-953* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 

9-975* 


9-975* 

9-975* 

9-: 30* 

9-: 30* 

9-:30* 

9-: 30* 

9-: 30* 

9-: 30* 

9-:30* 

9-: 30* 

f-:30* 

9- : 30* 

9-:30* 

9-:30* 


9-: 30* 

9-: 30* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-:53* 

9-: 53* 

9-:53* 

9-: 53* 


9-: 53* 

9-: 53* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-; 05* 

9-;05* 


9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 

9— <19* 

9-<19* 

9-<19* 


9— <19* 

9-<19* 

9-<19* 

9-<19* 

9— <1 9* 

9— <19* 

*-<19* 

9-<36* 

9-<36* 

9-<36* 

9-<36* 

9-<36* 

9-<36* 

9-<36* 


9-<36* 

9-<36* 

9-<36* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<85* 

9-<65* 

9-<85* 

9-<85* 

9-<®5* 

9-=05* 

9- =05* 


9-=05* 

9-=05* 

9-=05* 

9- =05* 

9-=05* 

9-=05* 

9-=05* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 
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9-=99* 

9-=99* 

9-=99* 

9-=99* 

9-=99* 

9->24* 

9->24* 


9->24* 

9->24* 

9->24* 

9->96* 

9->96* 

9->96* 

9->96* 


9-714* 

9—? 14* 

9-714* 

9-714* 

9-714* 

9-714* 

9-714* 


9-768* 

9-?68* 

9-768* 

9-768* 

9-768* 

9-788* 

9-788* 


9-856* 

9-856* 

9-856* 

9-856* 

9-856* 

9-856* 

9-856* 


9-878* 

9-878* 

9-878* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 


9-A45* 

9-A75* 

9-A45* 

9-A75* 

9-A45* 

9-A75* 

9-A45* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

RMOA 

RMOB 

RMOC 

4-760# 

4-766# 

4-771# 

9-267 

9-267 

9-267 

9-267 

9-267* 

9-289 

9-289 

9-289 

9-289 

9-289* 

RMDS 

4-762# 

9-267 

9-149 

9-149 

9-164 

9-164 

9-164 

9-164 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 


9-339 

9-339 

9-339 

9-339 

9-339 

9-339 

9-339 


9-357 

9-357 

9-357 

9-357 

9-357* 

9-384 

9-384 


9-443 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 


9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 


9-523 

9-523 

9-523* 

9-523* 

9-523* 

9-547 

9-547 


9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 


9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 


9-622* 

9-647 

9-647 

9-647 

9-647 

9-647 

9-647 


9-663 

9-663* 

9-663* 

9-699 

9-699 

9-699 

9-699 


9-719 

9-719 

9-719 

9-719* 

9-719* 

9-791 

9-791 


9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 


9-821 

9-821* 

9-821* 

9-872 

9-872 

9-872 

9-872 


9-872* 

9-872* 

9-872* 

9-895 

9-895 

9-895 

9-895 


9-895* 

9-895* 

9-895* 

9-953 

9-953 

9-953 

9-953 


9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953* 


9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 


9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-:30 

9-: 30 

9-: 30 


9-: 30* 

9-: 53 

9-: 53 

9-:53 

9-:53 

9-:53 

9-: 53 


9-: 53 

9-: 53 

9-:53 

9-: 53 

9-:53* 

9-;05 

9-; 05 


9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 69 

9-; 69 


9-; 69 

9-; 69 

9-; 69 

9-<19 

9-<19 

9— <19 

9-<19 


9-<36* 

9-<36* 

9-<36* 

9-<85 

9- <85 

9-<85 

9-<85 


9--05 

9-=05 

9-=05 

9-=05 

9-=05 

9-=05 

9-=05 


9- =99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 


9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 


9->24 

9->24 

9->24 

9->96 

9->96 

9->96 

9->96 


9->96* 

9->96* 

9->96* 

9-714 

9 714 

9-714 

9-714 


9— ?14* 

9-? 14* 

9-714* 

9-768 

9-768 

9-768 

9-768 


9-?88 

9-?88 

9-788* 

9-788* 

9-788* 

9-856 

9-856 


9-878 

9-878 

9-878 

9-878 

9-878 

9-878* 

9-878* 


9-A45 

9-A45* 

9-A45* 

9-A45* 

9-A75 

9-A75 

9-A75 

RNOT 

RMEC1 

RHEC2 

4-768# 

4-774# 

4-775# 

9-156 

9-267 

9-267 

9-156 

9-267 

9-267 

9-156 

9-289 

9-289 

9-156 

9-289 

9-289 

9-267 

9-267 

RMER1 

4-763# 

9-267 

9-267 

9-289 

9-289 

9-523 

9-523 

9-953* 

9-975* 

9-975* 

9-975* 

9-975* 

9-: 30* 

9-: 30* 


9-; 05* 

9-; 05* 

9-; 05* 

9-; 69* 

9-; 69* 

9-; 69* 

9-; 69* 


9— ?14 

9— ?14 

9-714* 

9-A45* 

9-A45* 

9-A45* 

9-A46 

RMER2 

RMLA 

4-773# 

9-A76 

4-765# 

9-267 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 

9-289 

9-A45* 

9-A45* 

RFWR1 

RFWR2 

4-767# 

4-772# 

9-267 

9-267 

9-289 

9-289 

9-=99* 

9-=99* 


SEO 0213 


9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->24* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9->96* 

9-714* 

9-714* 

9-714* 

9-714* 

9-768* 

9-768* 

9-768* 

9-788* 

9-788* 

9-788* 

9-788* 

9-788* 

9-788* 

9-856* 

9-856* 

9-878* 

9-878* 

9-878* 

9-878* 

9-878* 

9-878* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A45* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 

9-A75* 


9-164 

9-164 

9-164 

9-164 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 

9-289 

9-339 

9-339 

9-339 

9-339* 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9-384 

9-397 

9-397 

9-397 

9-443 

9-443 

9-443 

9-443 

9-443* 

9-443* 

9-443* 

9-466 

9-466 

9-466 

9-466 

9-466* 

9-466* 

9-466* 

9-523 

9-523 

9-523 

9-547 

9-547 

9-547 

9-547* 

9-547* 

9-547* 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599* 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-647* 

9-647* 

9-663 

9-663 

9-663 

9-663 

9-663 

9-699 

9-699 

9-699* 

9-699* 

9-719 

9-719 

9-719 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791* 

9-791* 

9-821 

9-821 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872* 

9*695 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895* 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975* 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-:30 

9-: 30 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-;05 

9-;05 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-;69 

9— <1 9* 

9-<19* 

9-<1 9* 

9-<36 

9-<36 

9-<36 

9-<36 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85* 

9-<85* 

9-=05 

9-=05* 

9-=05* 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->96 

9->96 

9->96 

9->96 

9->96 

9->96 

9->96* 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714* 

9-768 

9-768* 

9-768* 

9-768* 

9-788 

9-788 

9-788 

9-856 

9-856 

9-856 

9-856* 

9-856* 

9-856* 

9-856* 

9-878* 

9-878* 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A75 

9-289 

9-A75 

9-289 

9-A75 

9-A75* 

9-A75* 

9-A75* 


9-523* 

9-547 

9-547 

9-547* 

9-953* 

9-953* 

9-953* 

9-: 30* 

9-: 30* 

9-: 53* 

9-: 53* 

9-: 53* 

9-: 53* 

9-; 05* 

9— <19* 

9— <19* 

9-<36* 

9-<36* 

9->96 

9->96 

9->96* 

9-A46 

9-A75* 

9-A75* 

9-A75* 

9-A76 

9-A76 

9-A76 

9-A45* 

9-A46 

9-A46 

9-A75* 

9-A75* 

9-A75* 


9-=99* 9->24* 9->24* 9->24* 
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RMOF 

A-770# 

9-267 

9-267 

9-289 

9-289 



RHR 

A-666 # 







RMSN 

A -769# 

9-169 

9-171 

9-267 

9-267 

9-289 

9-289 

RMUC 

A-758 # 

9-112 






RQA 

A -686# 







ROB 

A-685# 







RQSTA 

7-0# 







RQSTB 

7-0# 







SAVREG 

21-1# 







SC 

A-608# 







SCO 

A-720# 







SCI 

A— 721 # 







SC2 

A -722# 







SC3 

A-723# 







SCA 

A-72A# 







SCOPE 

A -595# 

9-178 

9-267 

9-289 

9-339 

9-357 

9-38A 


9-6A7 

9-663 

9-699 

9-719 

9-791 

9-821 

9-872 


9-<19 

9-A80 

9-<36 

9-<85 

9-=05 

9-=99 

9->2A 

9->96 

SEI2PT 

7-0# 

9-267* 

9-289* 

9-339* 

9-357* 

9-38A* 

9-397* 


9-663* 

9-699* 

9-719* 

9-791* 

9-791* 

9-791* 

9-872* 


9-<85* 

9-=05* 

9-=99* 

9->2A* 

9->96* 

9— ?1 A* 

9-?68* 


2A-38 

2A-39 

2A-A0 

2A-A1 

2A-A5 

2A-A6 

SKI 

A-73A# 






STACK 

A-595# 

9-23 

9-69 

9-136 

9-198 

9-287 

9-305 


9-568 

9-620 

9-636 

9-661 

9-681 

9-717 

9-736 


9-:69 

9-;2A 

9-;8A 

9-<3A 

9-<55 

9-=03 

9-=57 


9-A05 

9-A73 





START 

5-1 

9-1 A# 

18-1 

18-1 




START1 

5-3 

9-17# 






START 2 

9-16 

9-19# 






STKLMT 

A-595# 







STOP 

12-1 

12-5# 






SWO 

A-595# 






SUOO 

A-595 

A-595# 






SWOI 

A-595 

A-595# 






SW02 

A-595 

A-595# 






SW03 

A-595 

A-595# 






SWOA 

A-595 

A-595# 






SW05 

A-595 

A-595# 






SW06 

A-595 

A-595# 






S«07 

A-595 

A-595# 






SWOB 

A-595 

A-595# 






SW09 

A-595 

A-595# 






SW1 

A-595# 







SWIO 

A-595# 







SW11 

A-595# 







SW12 

A-595# 







SW13 

A-595# 







SW1A 

A-595# 







SW15 

A-595# 

9-175 






sw2 

A-595# 







SW3 

A-595# 







SWA 

A-595# 







SWS 

A-595# 







SW6 

A-595# 
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SEQ 0215 
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) 








SU7 

A-595# 











SU8 

A-595# 











SW9 

A-595# 











SUR 

6-0# 

9-23 

9-23 

9-23* 

9-23* 9-28 9-175 

12-1 

12-1 

12-1 

12-1* 

12-1* 

12-1* 12-1* 


13-1 

13-1 

13-1 

13-1 

18-1 18-1 18-1* 







SWREG 

5-1# 

9-23 

9-28 

18-1 

18-1 18-1 







TAP 

A-715# 











TBITVE 

A-59i# 











TEST! 

9-136 

9-136 

9-136# 









t'ESTIO 

9-A18 

9-A18 

9-A18# 









TEST11 

9-A6A 

9-A6A 

9-A6A# 









TEST12 

9-A88 

9-A88 

9-A88# 









TEST13 

9-5A5 

9-5A5 

9-5A5# 









TEST1A 

9-568 

9-568 

9-568# 









TEST15 

9-620 

9-620 

9-620# 









TEST16 

9-636 

9-636 

9-636# 









TEST17 

9-661 

9-661 

9-661# 









TEST2 

9-198 

9-198 

9-198# 









TEST20 

9-681 

9-681 

9-681# 









TEST21 

9-717 

9-717 

9-717# 









TEST22 

9-736 

9-736 

9-736# 









TEST23 

9-805 

9-805 

9-805# 









TEST2A 

9-8A2 

9-8A2 

9-8A2# 









TEST25 

9-L93 

9-893 

9-893# 









TEST26 

9-919 

9-919 

9-919# 









TEST27 

9-973 

9-973 

9-973# 









TEST3 

9-287 

9-287 

9-287# 









TEST30 

9-996 

9-996 

9-996# 









TEST31 

9-: 51 

9-: 51 

9-: 51# 









TEST32 

9-: 69 

9-: 69 

9-: 69# 









TEST33 

9-;2A 

9-;2A 

9-; 2 A# 









TEST3A 

9-;8A 

9-;8A 

9-; 8 A# 









TEST35 

9-<3A 

9-<3A 

9-<3A# 









TEST36 

9-<55 

9-<55 

9-<55# 









TEST37 

9-=03 

9-=03 

9-=03# 









TESTA 

9-305 

9-305 

9-305# 









TESTAO 

9-=57 

9-=57 

9-=57# 









TESTA1 

9->22 

9->22 

9->22# 









TESTA2 

9->AA 

9->AA 

9->AA# 









TESTA3 

9-712 

9-712 

9-712# 









TESTAA 

9-732 

9-732 

9-732# 









TESTA5 

9-786 

9-786 

9-786# 









TESTA6 

9-ill 

9-aii 

9-an# 









TESTA7 

9-i76 

9-a76 

9-a76# 









TEST5 

9-355 

9-355 

9-355# 









TEST50 

9-A05 

9-A05 

9-A05# 









TEST51 

9-A73 

9- A 73 

9-A73# 









TEST6 

9-372 

9-372 

9-372# 









TEST7 

9-395 

9-395 

9-395# 









TESTNO 

9-78 

22-8# 










TINE 

7-0# 

9-267 

9-267 

9-267* 

9-289 9-289 9-289* 

9-339* 

9-357* 

9->96* 

9-71A* 

9-768 

9-768* 9-768* 


9-788 

9-788* 

9-788* 

11-30* 

11-32* 2A-A6 







TIWSA 

7-0# 

9-56* 

9-267 

9-267* 

9-267* 







TIME AM 

7-0# 

9-267* 

9-267* 

9-768 








TJMEAP 

7-0# 

9-56* 

9-267* 

9-267* 

9-768 9-356 







TIMES 

7-0# 

9-56* 

9-289 

9-289* 

9-289* 
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TIMEBM 

7-0# 

9-289* 

9-289* 

9-788 

TIMEBP 

7-0# 

9-56* 

9-289* 

9-289* 

TIMES 

7-0# 

9-?68 

9-768 

9-768* 

TKVEC 

4-595# 

18-1* 

18-1* 


TOLER 

9-267 

9-289 

11-42# 


TPVEC 

4-595# 




TRAPVE 

4-595# 

9-23* 

9-23* 


TRE 

4-607# 

9-443 

9-466 

9-A46 

TRTVEC 

4-595# 




TST1 

9-136# 

25-5 



TST10 

9-418# 

25-8 



TST11 

9-464# 

25-8 



TST12 

9-488# 

25-8 



TST13 

9-545# 

25-8 



TST14 

9-568# 

25-8 



TST15 

9-620# 

25-8 



TST16 

9-636# 

25-8 



TST17 

9-661# 

25-8 



TST1AA 

9-82 

9-133# 

10-1 


TST2 

9-198# 

25-8 



TST20 

9-681# 

25-8 



TST21 

9-717# 

25-8 



TST22 

9-736# 

25-8 



TST23 

9-805# 

25-8 



TST24 

9-842# 

25-8 



TST25 

9-893# 

25-11 



TST26 

9-919# 

25-11 



TST27 

9-973# 

25-11 



TST3 

9-287# 

25-8 



TST30 

9-996# 

25-11 



TST31 

9-: 51# 

25-11 



TST3 2 

9-: 69# 

25-11 



TST33 

9-; 24# 

25-11 



TST34 

9-; 84# 

25-11 



TST35 

9-<34# 

25-11 



TST36 

9-<55# 

25-11 



TST37 

9-=03# 

25-14 



TST4 

9-305# 

25-8 



TST40 

9-=57# 

25-14 



TST41 

9 ->22# 

25-14 



TST42 

9->44# 

25-14 



TST43 

9-712# 

25-14 



TST44 

9-732# 

25-14 



TST45 

7-786# 

25-14 



TST46 

9-311# 

25-14 



TST47 

9-376# 




TST5 

9-355# 

25-8 



TST50 

9-A05# 




TST50B 

9-A45 

9-A45 

9-A46# 


TST51 

9-A46 

9-A73# 



TST518 

9-A75 

9-A75 

9-A76# 


TST5 2 

9-A76 

9-A80# 



TST6 

9-372# 

25-8 



TST7 

9-395# 

25-8 



TSTADR 

9-93 

25-5# 



TSTERR 

22-10# 





9-?88 

9-?88 


9-378 

9-?88 


9-788* 


9-A46 9-A76 9-A76 


1 
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TSTNUPI 

7-0# 

13-1* 

24-32 

24-33 

24-34 

24-35 

24-36 

24-37 

24-38 

24-39 

24-40 

24-41 

24-42 

24-43 


24-44 

24-45 

24-46 

24-48 











TYPOS 

10-1 

10-1 

14-1 

21-1# 











TYPE 

9-6 

9-28 

9-31 

9-36 

9-44 

9-46 

9-48 

9-59 

9-67 

9-78 

9-86 

9-100 

9-103 

9-104 


10-1 

10-1 

10-1 

13-1 

13-1 

14-1 

14-1 

14-1 

14-1 

14-1 

14-1 

14-1 

15-1 

16-1 


17-1 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1 

18-1 


18-1 

18-1 

18-1 

18-1 

18-1 

19-1 

19-1 

21-1# 







TYPOC 

9-8 

9-102 

14-1 

14-1 

18-1 

21-1# 









TYPON 

21-1# 














TYPOS 

9-45 

9-47 

21-1# 












UO 

4-612# 














Ul 

4-613# 














U3 

4-614# 














UNS 

4-678# 














UPE 

VV 

4-625# 

4-651# 

9-26 7 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 

9-289 

9-339 

9-339 

9-339 

9-339 

9-339 


9-339 

9-339 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9-357 

9-384 

9-384 

9-384 

9-397 

9-397 


9-397 

9-443 

9-443 

9-443 

9-443 

9-443 

9-466 

9-466 

9-466 

9-466 

9-466 

9-523 

9-523 

9-523 


9-547 

9-547 

9-547 

9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-622 

9-622 

9-622 

9-622 

9-622 


9-622 

9-647 

9-647 

9-647 

9-647 

9-663 

9-663 

9-663 

9-663 

9-699 

9-699 

9-699 

9-699 

9-719 


9-719 

9-719 

9-719 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-821 


9-821 

9-821 

9-872 

9-872 

9-872 

9-872 

9-895 

9-895 

9-895 

9-895 

9-953 

9-953 

9-953 

9-953 


9-975 

9-975 

9-975 

9-975 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-; 05 

9-; 05 


9-; 69 

9-; 69 

9-<19 

9-<19 

9-<19 

9-<36 

9-<36 

9-<36 

9-<85 

9-<85 

9-<85 

9-=05 

9-=05 

9-=05 


9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 


9-=99 

9-=99 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 


9->24 

9->24 

9->24 

9->24 

9->96 

9->96 

9-714 

9-714 

9-768 

9-768 

9-768 

9-788 

9-788 

9-788 


9-356 

9-356 

9-356 

9-378 

9-378 

9-378 

9-A45 

9-A45 

9-A45 

9-A45 

9-A75 

9-A75 

9-A75 

9-A75 

WSET 

8-377# 

9-267 

9-267 

9-267 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 

9-289 

9-289 

9-289 

9-339 


9-339 

9-339 

9-339 

9-339 

9-357 

9-357 

9-357 

9-357 

9-357 

9-359# 

9-384 

9-384 

9-384 

9-384 


9-384 

9-384 

9-397 

9-397 

9-397 

9-397 

9-397 

9-397 

9-443 

9-443 

9-443 

9-443 

9-443 

9-443 


9-443 

9-443 

9-443 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-523 

9-523 


9-523 

9-523 

9-523 

9-523 

9-523 

9-547 

9-547 

9-547 

9-547 

9-547 

9-547 

9-547 

9-599 

9-599 


9-599 

9-599 

9-599 

9-599 

9-599 

9-599 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 

9-622 


9-647 

9-647 

9-647 

9-647 

9-647 

9-647 

9-647 

9-647 

9-663 

9-663 

9-663 

9-663 

9-663 

9-663 


9-663 

9-663 

9-699 

9-699 

9-699 

9-699 

9-699 

9-699 

9-699 

9-699 

9-719 

9-719 

9-719 

9-719 


9-719 

9-719 

9-719 

9-719 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 


9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-821 

9-821 

9-821 

9-821 

9-821 

9-821 

9-872 

9-872 


9-872 

9-872 

9-872 

9-872 

9-872 

9-872 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895 


9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 


9-975 

9-975 

9-: 30 

9-: 30 

9-.-30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-:53 

9-: 53 

9-: 53 

9-: 53 


9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-; 05 

9-; 05 

9-;05 

9-; 05 

9-; 05 

9-; 05 

9-; 69 

9-; 69 

9-; 69 

9-; 69 


9-; 69 

9-; 69 

9— <1 9 

9— <1 9 

9-<19 

9— <1 9 

9-<19 

9-<19 

9— <19 

9-<36 

9-<36 

9-<36 

9-<36 

9-<36 


9-<36 

9-<36 

9-<85 

9-<85 

9-05 

9-<85 

9-<85 

9-<85 

9-<85 

9-=05 

9-=05 

9-=05 

9-=05 

9-=05 


9-=05 

9-=05 

9 -=07# 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9-=99 

9->24 


9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9 ->27# 

9->96 

9->96 

9->96 

9->96 


9->96 

9->96 

9-714 

9-714 

9-714 

9-714 

9-714 

9-714 

9-768 

9-768 

9-768 

9-768 

9-768 

9-768 


9-?88 

9-?88 

9-788 

9-788 

9-788 

9-788 

9-356 

9-356 

9-356 

9-356 

9-356 

9-356 

9-378 

9-378 


9-378 

9-378 

9-378 

9-378 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A75 

9-A75 


9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 









WATCH 

7-0# 

9-267 

9-267* 

9-289 

9-289* 

9-339 

9-339* 

9-357 

9-357* 

9->96 

9->96* 

9-714 

9-714* 

9-768 


9-768 

9-?68* 

9-768* 

9-788 

9-788 

9-788* 

9-788* 

9-356 

9-356* 

9-378 

9-378* 

11-33 

11-35* 

11-37* 

WCE 

4-626# 














WCF 

4-669# 














ULE 

4-675# 














WRL 

4-656# 

9-267 

9-267 

9-289 

9-289 

9-339 

9-339 

9-357 

9-357 

9-384 

9-384 

9-397 

9-397 

9-443 


n i 
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9-443 

9-466 

9-466 

9-523 

9-663 

9-699 

9-699 

9-719 

9-895 

9-953 

9-953 

9-975 

9-09 

9-<36 

9-<36 

9-<85 

9->24 

9->96 

9->96 

9-714 

9-A45 

9-A75 

9-A75 



9-523 

9-547 

9-547 

9-599 

9-599 

9-719 

9-791 

9-791 

9-791 

9-791 

9-975 

9-:30 

9-: 30 

9-: 53 

9-: 53 

9-<85 

9-=05 

9-=05 

9-=99 

9-=99 

9-714 

9-768 

9-768 

9-788 

9-788 
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9-622 

9-622 

9-647 

9-647 

9-663 

9-821 

9-821 

9-872 

9-872 

9-895 

9-; 05 

9-; 05 

9-; 69 

9-;69 

9-<19 

9-=99 

9-=99 

9->24 

9->24 

9->24 

9-856 

9-856 

9-878 

9-878 

9-A45 
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N 1 


SEO 0219 


SSCMRE 

SSCMTM 

SSESCA 

S1NEWT 


SSSET 

SISK IP 

.SACT1 

•SCATC 

.SCMTA 

.HOP 

.SERRO 

.SERRT 

.SR DOC 

.(READ 

.SSAVE 

.SSCOP 

.STRAP 

.STYPD 

.STYPE 

.STYPO 

.EOUAT 

.HEADE 

.SETUP 

.SWRHI 

. SHRLO 

AA 

AODO 

ADD1 

AD04 

CC 

CC 1 

CHECK 


5-46# 

5-46# 

4-595# 

4-595# 

9-636 

9-; 84 

9-A80 


CLRATA 

COWMEN 

DO 

EE 

END COM 
ERR JR 


6-0 

6-0 

9-136 

9-661 

9-<34 


21-1 

4-595# 

21-1 

4-584# 

5-5 

4-585# 

5-1 

4-585# 

5-46 

4-585# 

10-1 

4-585# 

13-1 

4-584# 

14-1 

4-586 # 

19-1 

4-586# 

18-1 

4-586# 

4-585# 

20-1 

12-1 

4-586# 

21-1 

4-586# 

17-1 

4-585# 

15-1 

4-586# 

16-1 

4-584# 

4-595 

4-584# 

4-592 

4-584# 

4-777 

4-584# 

4-593 

4-584# 

4-593 

9-200# 

9-267 


9-^^T 

9-*59# 

m 

tip 


¥ $ W ¥ 

9-: 30 
9-=99 
9-339 
9-384 
9-149 
9-443 



6-0 

6-0 

6-0 

6-0 

9-198 

9-287 

9-305 

9-355 

9-681 

9-717 

9-736 

9-805 

9-<55 

9-=03 

9- =5 7 

9 ->22 


21-1 


9-289 

9-: 53 
9->24 
9-357 
9-397 
9-149 
9-466 
9-622 
9-975 
9-; 05 

$38 

m 

9-663 

9-895 


9-267 

9-289 

9-289 

9-357 

9-397 

9-466 

9-547 

9-599 


21-1 


9-156 
9-523 
9-699 
9-975 
9-; 69 
9->24 
9-A46 
9-523 
9->96 


9-149 9-149 





21-1 


9-156 
9-523 
9-719 
9-975 
9-; 69 
9->24 
9-A46 
9-547 
9->96 


9-156 

9-267 

9-289 

9-289 

9-357 

9-443 

9-466 

9-547 

9-599 


21-1 


9-164 
9-523 
9-791 
9-: 30 
9-<85 
9->24 
9-A76 
9-647 
9— ?14 


9-156 

9-267 

9-289 

9-289 

9-357 

9-443 

9-466 

9-547 

9-622 


9-372 

9-842 

9->44 

21-1 


9-395 

9-893 

9-712 

21-1 


9-164 

9-547 

9-791 

9-:30 

9-<85 

9->24 

9-A76 

9-663 

9-714 


9-164 

9-267 

9-289 

9-289 

9-357 

9-443 

9-466 

9-547 

9-622 



9-418 

9-919 

9-732 

21-1 


9-164 
9-547 
9-872 
9-: 30 
9-=05 
9->96 

9-699 

9-768 


9-164 

9-267 


9-164 
9-547 
9-872 
9-: 30 
9-=05 
9->96 

9-719 

9-788 



9-464 

9-973 

9-786 

21-1 


9-466 

9-547 

9-622 


9-339 

9-599 

9-895 

9-:53 

9-=99 

9->96 

9-791 

9-856 



9-488 

9-996 

9-811 

21-1 


9-339 

9-599 

9-895 

9-:53 

9-=99 

9->96 

9-821 

9-878 



9-545 
9-: 51 
9-876 

21-1 


9-339 
9-599 
9-953 
9-: 53 
9-=99 
9-714 

9-872 

9-A45 



9-568 
9-: 69 
9-A05 

21 - 1 # 


9-357 
9-599 
9-953 
9-: 53 
9- =99 
9-714 

9-895 

9-A75 



9-620 
9-; 24 
9-A73 


9-357 

9-622 

9-953 

9-;05 

9-=99 

9-714 

9-<l9 



9-466 

9-523 

9-599 

9-622 


l 


B 2 
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9-622 

9-647 

9-647 

9-647 

9-647 

9-647 

9-647 


9-699 

9-699 

9-699 

9-699 

9-699 

9-699 

9-719 


9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 


9-791 

9-821 

9-821 

9-821 

9-821 

9-872 

9-872 


9-895 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895 


9-953 

9-953 

9-953 

9-975 

9-975 

9-975 

9-975 


9-: 30 

9-: 30 

9-: 30 

9-: 30 

9-:30 

9-: 30 

9-: 30 


9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-:53 

9-; 05 

9-; 05 


9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9-; 69 

9— <1 9 


9-<36 

9-<36 

9-<85 

9-<85 

9-<85 

9-<85 

9-<85 


9-=99 

9-=99 

9-=99 

9-=99 

9-r99 

9—99 

9—99 


9->24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->24 


9->96 

9->96 

9->96 

9->96 

9->96 

9->96 

9->96 


9-714 

9-714 

9-714 

9-714 

9-768 

9-768 

9-768 


9-?88 

9-788 

9-356 

9-356 

9-856 

9-356 

9-856 


9-A45 

9-A45 

9-A45 

9-A45 

9-A46 

9-A46 

9-A46 


9-A76 

9-A76 

9-A76 

9-A76 

12-1 



ESCAPE 

4-595# 







FF 

9-683# 

9-699 

9-719 





FF 1 

9-420# 

9-443 

9-466 





GETPRI 

4-595# 







GETSWR 

4-595# 

9-28 

9-28# 





GG 

9-738# 

9-791 






HH 

9-807# 

9-821 






11 

9->46# 

9->96 

9-714 





JJ 

9-490# 

9-523 

9-547 





KK 

9-?34# 

9-768 

9-788 





LL 

9-A07# 

9-A45 

9-A75 





LL1 

9-A34# 

9-A46 

9-A76 





mm 

9-<5 7# 

9-<85 

9-=05 





mo 

9-: 71# 

9-;05 






HM1 

9-921# 

9-$53 

9-975 





MORE T A 

5-7# 

6-0 






MSG 

9-120# 

9-136 

9-180# 

9-198 

9-269# 

9-287 

9-291# 


9-399# 

9-418 

9-445# 

9-464 

9-468# 

9-488 

9-525# 


9-649# 

9-661 

9-665# 

9-681 

9-701# 

9-717 

9-721# 


9-900# 

9-919 

9-955# 

9-973 

9-977# 

9-996 

9-:32# 


9— <21# 

9-<34 

9-<38# 

9-<55 

9-<87# 

9—03 

9—10# 


9->30# 

9->44 

9->98# 

9-712 

9-716# 

9-732 

9-770# 


9-A48# 

9-A73 






MULT 

4-595# 







NEUTRA 

4-269# 

9-267 

9-289 

9-339 

9-357 

9-384 

9-397 


9-663 

9-699 

9-719 

9-791 

9-791 

9-821 

9-872 


9-<19 

9-<36 

9-<85 

9-=05 

9—99 

9—99 

9->24 


9-A45 

9-A75 






NEWTST 

4-595# 

9-136 

9-198 

9-287 

9-305 

9-355 

9-372 


9-636 

9-661 

9-681 

9-717 

9-736 

9-805 

9-842 


9-; 84 

9-<34 

9-<55 

9-=03 

9—57 

9— >22 

9->44 


9-A80 







NN 

9-913# 

9-356 

9-378 





NWTST 

4-547# 

9-136 

9-198 

9-287 

9-305 

9-355 

9-372 


9-636 

9-661 

9-681 

9-717 

9-736 

9-805 

9-842 


9-;84 

9-<34 

9-<55 

9-=03 

9—57 

9 ->22 

9->44 

00 

9-570# 

9-599 

9-622 





POP 

4-595# 

17-1 

19-1 

20-1 




PUSH 

4-595# 

17-1 

19-1 

20-1 





SEQ 0220 


9-663 

9-663 

9-663 

9-663 

9-663 

9-663 

9-699 

9-719 

9-719 

9-719 

9-719 

9-719 

9-719 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872 

9-895 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-: 30 

9-: 30 

9-: 30 

9-: 53 

9-: 53 

9-:53 

9-: 53 

9-: 53 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 05 

9-; 69 

9— <1 9 

9— <1 9 

9— <1 9 

9— <1 9 

9-<36 

9-<36 

9-<36 

9-<85 

9—05 

9—05 

9—05 

9-=05 

9-=05 

9—05 

9-=99 

9—99 

9—99 

9—99 

9-=99 

9—99 

9—99 

9->24 

9- >24 

9->24 

9->24 

9->24 

9->24 

9->24 

9->96 

9->96 

9-714 

9-714 

9-714 

9-714 

9-714 

9-768 

9-768 

9-768 

9-788 

9-788 

9-788 

9-788 

9-378 

9-378 

9-378 

9-378 

9-378 

9-A45 

9-A45 

9-A46 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 


9-305 

9-341# 

9-355 

9-363# 

9-372 

9-386# 

9-395 

9-545 

9-549# 

9-568 

9-601# 

9-o20 

9-624# 

9-636 

9-736 

9-793# 

9-805 

9-823# 

9-842 

9-874# 

9-893 

9-: 51 

9-: 55# 

9-: 69 

9-; 10# 

9-; 24 

9-; 71# 

9-;84 

9—20 

9—23# 

9—33 

9—36# 

9-=57 

9->01# 

9->22 

9-786 

9-790# 

9-an 

9-358# 

9-a76 

9-880# 

9-A05 

9-443 

9-466 

9-523 

9-547 

9-599 

9-622 

9-647 

9-895 

9-953 

9-975 

9-:30 

9-: 53 

9-; 05 

9-; 69 

9->24 

9->96 

9-714 

9-768 

9-788 

9-a56 

9-a78 

9-395 

9-418 

9-464 

9-488 

9-545 

9-568 

9-620 

9-893 

9-919 

9-973 

9-996 

9-.-51 

9-:69 

9-; 24 

9-712 

9-732 

9-786 

9-an 

9-376 

9-A05 

9-A73 

9-395 

9-418 

9-464 

9-488 

9-545 

9-568 

9-620 

9-893 

9-919 

9-973 

9-9% 

9-: 51 

9-:69 

9-; 24 

9-712 

9-732 

9-786 

9-an 

9-376 

9-A05 

9-A73 


CZRNHAO RM80 DUAL PORT PT1 

1 MACRO V04.00 15 

-JAN-82 07:09:22 PAGE H-3 







SEQ 0221 

I CROSS 1 

REFERENCE 

TABLE (CREF V04.00 

) 











RE LEAS 

4-197# 

9-339 

9-357 

9-443 

9-443 

9-466 

9-466 

9-523 

9-547 

9-599 

9-622 

9-647 

9-663 

9-699 


9-719 

9-791 

9-791 

9-791 

9-791 

9-872 

9-872 

9-895 

9-895 

9-953 

9-975 

9-: 30 

9-: 53 

9-<19 


9-<36 

9-<85 

9-=05 

9-=99 

9-=99 

9->24 

9->24 

9-A45 

9-A45 

9-A75 

9-A75 




REPORT 

4-595# 














RR 

9-; 86# 

9-<19 

9-<36 












SEIZE 

4-52# 

9-267 

9-289 

9-339 

9-357 

9-443 

9-466 

9-523 

9-547 

9-599 

9-622 

9-647 

9-663 

9-699 


9-719 

9-872 

9-895 

9-953 

9-975 

9-: 30 

9-: 53 

9-=99 

9->24 

9->96 

9-714 

9-768 

9-788 

9-856 


9-878 

9-A45 

9-A75 












SELECT 

4-244# 

9-149 

9-149 

9-156 

9-156 

9-164 

9-164 

9-267 

9-267 

9-267 

9-289 

9-289 

9-289 

9-339 


9-359 

9-339 

9-339 

9-357 

9-357 

9-357 

9-357 

9-384 

9-397 

9-443 

9-443 

9-443 

9-443 

9-443 


9-443 

9-443 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-466 

9-523 

9-523 

9-523 

9-523 

9-547 


9-547 

9-547 

9-547 

9-599 

9-599 

9-599 

9-599 

9-599 

9-559 

9-599 

9-622 

9-622 

9-622 

9-622 


9-622 

9-622 

9-622 

9-647 

9-647 

9-647 

9-663 

9-663 

9-663 

9-699 

9-699 

9-699 

9-699 

9-719 


9-719 

9-719 

9-719 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

9-791 

5-791 

9-791 

9-791 

9-791 


9-791 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872 

9-872 

9-895 

9-895 

9-895 

9-895 

9-895 

9-895 


9-895 

9-953 

9-953 

9-953 

9-953 

9-953 

9-953 

9-975 

9-975 

9-975 

9-975 

9-975 

9-975 

9-: 30 


9-: 30 

9-: 30 

9-: 30 

9-: SO 

9-:30 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-: 53 

9-; 05 

9-; 05 

9-; 05 


9-; 05 

9-; 69 

9-; 69 

9-;69 

9-; 69 

9-<19 

9-<19 

9-<36 

9-<36 

9-<85 

9-<85 

9-<85 

9-=05 

9-=05 


9-=05 

9-=99 

9-=99 

9-=99 

9->24 

9->24 

9->24 

9->96 

9->96 

9->96 

9-714 

9-714 

9-714 

9-768 


9-?88 

9-856 

9-856 

9-878 

9-878 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A45 

9-A75 


9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 

9-A75 








SETATA 

4-448# 

9-953 

9-975 

9-: 30 

9-:53 

9-; 05 

9-; 69 








SETPRI 

4-595# 

9-92 

9-134 

12-5 

12-9 

18-1 









SETTRA 

21-1 

21-1 

21-1 

21-1 

21-1 

21-1 

21-1 

21-1 

21-1 

21-1 

21-1 

21-1 

21-1# 


SETUP 

4-595# 

9-23 













SKIP 

4-595# 














SLASH 

4-595# 














STARS 

4-595# 

5-5 

6-0 

6-0 

9-136 

9-136 

9-198 

9-198 

9-287 

9-287 

9-305 

9-305 

9-355 

9-355 


9-372 

9-372 

9-395 

9-395 

9-418 

9-418 

9-464 

9-464 

9-488 

9-488 

9-545 

9-545 

9-568 

9-568 


9-620 

9-620 

9-636 

9-636 

9-661 

9-661 

9-681 

9-681 

9-717 

9-717 

9-736 

9-736 

9-805 

9-805 


9-842 

9-842 

9-893 

9-893 

9-919 

9-919 

9-973 

9-973 

9-996 

9-996 

9-: 51 

9-: 51 

9-: 69 

9-: 69 


9-; 24 

9-; 24 

9-; 84 

9-; 84 

9-<34 

9-<34 

9-<55 

9-<55 

9-=03 

9-=03 

9-=19 

9— =21 

9-=32 

9-=34 


9-=57 

9-=57 

9->22 

9->2 2 

9->44 

9->44 

9-712 

9-712 

9-732 

9-732 

9-786 

9-786 

9-811 

9-811 


9-876 

9-876 

9-A05 

9-A05 

9-A73 

9-A73 

9-A78 

9-A80 

10-1 

12-1 

13-1 

14-1 

15-1 

16-1 


17-1 

18-1 

18-1 

18-1 

18-1 

18-1 

19-1 

20-1 

21-1 






SWITCH 

4-371# 

9-443 

9-466 

9-791 

9-791 

9-872 

9-895 

9-A45 

9-A75 






SURSU 

4-595# 

9-23 

9-23# 












TIMER 

4-573# 

9-267 

9-289 

9-339 

9-357 

9->96 

9-714 

9-768 

9-768 

9-788 

9-788 




TRMTRP 

21-1# 














TSTREQ 

4-481# 














TYP8IN 

4-595# 














TYPDEC 

4-595# 

10-1 

10-1 

14-1 











TYPNAM 

4-595# 

9-28 













TYPNUW 

4-595# 














TVPOCS 

4-595# 

9-45 

9-47 












TYPOCT 

4-595# 

14-1 

14-1 

18-1 











TYPTXT 

4-595# 

9-6 

10-1 

10-1 











USEREO 

9-A81# 

10-1 














